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Preface 


This book is designed for people with a working knowledge of APL who 
would like to increase their fluency in the wide range of extra facilities offered 
by second-generation APL products. Although the primary product in view is 
IBM's APL2 as implemented on mainframe, PC and RS/6000, the language fea- 
tures covered share considerable common ground with APL*PLUS II and 
Dyalog APL. This is a book about skills rather than knowledge, and an 
acquaintance with some variety of APL on the readers part is assumed from 
the start. It is designed to be read as a continuous text, interspersed with exer- 
cises designed to give progressively deeper insight into what the authors conceive 
as the features which have the greatest impact on programming techniques. It 
would also be suitable as a text-book for a second course in APL2, although 
experience suggests that most programming language learning is now by self- 
study, so that this volume is more likely to provide follow-up reading to more 
elementary texts such as “APL2 at a Glance" by Brown, Pakin and Polivka. 
Material is discussed more informally than in a language manua! - in this book 
textual bulk is in proportion to difficulty and importance rather than to the 
extent of technical details. Indeed, some APL2 extensions are not covered at all 
where the technicalities pose no great problems in understanding and can be 
readily assimilated from the language manuals. 

Second-generation APL is dominated by two ideas - nested arrays and oper- 
ator extension. Nested arrays are in principle so simple a concept that only a 
few minutes are needed for an experienced APL user to read and absorb their 
technical specifications, and also those of the closely associated functions 
enctose, disclose and depth, and the operator each. Nevertheless the increase in 
expressiveness and potential complexity which these few simple ideas add is 
truly astonishing. 

The first chapter discusses APL2 arrays and functions, grouping the latter 
into broad areas such as structuring, selection and inquiry. Chapter 2 considers 
operators, both primitive and user-defined. Chapter 3 contains demonstrations 
to show how nested arrays deal with simple data structures in a way which 
makes their behavior comprehensible and useful to people with very limited pro- 
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gramming background and experience. Chapters 4-6 then retrace and develop 
the ideas of chapters 1-3. Chapter 4 develops the ideas of chapter 1, but 
focusing more on the way in which functions interact. Chapter 5 develops the 
Chapter 2 discussion of operators in a similar way, and Chapter 6 gives more 
Sophisticated examples which use all the powerful features of APL2 which have 
been developed in the previous five chapters. 


Ch. 1 Ch.2 
Functions Operators 


Ch.4 Ch. 5 
Functions Operators 


Using APL2 to its full capability is a skill whose acquisition takes time and 
patience which are an order of magnitude greater than the skills needed for a 
mastery of first-generation APLs. The reward, on the other hand, is the stim- 
ulus of a language whose exploration is a source of constant delight through its 
seemingly endless capacity for expressing ideas of indefinite complexity in unam- 
biguous and succinct terms. 

Of the existing APL texts and primers, some were originally first-generation 
APL works upgraded to APL2 by the addition of new sections and appendices. 
Others assume that APL2 is the first language which the user encounters. This 
book is addressed to the thousands of people, some programmers and some not, 
who have achieved both enhancement to their professional skills and personal 
satisfaction in learning and using APL, and who would like to build on this 
foundation by acquiring a matching fluency in the skills associated with APL2. 

Extra weight is therefore given in the text to those APL2 language features 
which extend user versatility in describing data structures and communicating 
algorithms in ways which mirror current thinking in computing science and soft- 
ware engineering. 

The exercises are designed to give the reader practice in these processes. Fre- 
quently, subtler points of difference are best illustrated by exercises with long 
sequences of similar expressions to be evaluated. With many exercises, a few 
keystrokes on a terminal will deliver the answer, and whilst the reader is encour- 
aged to use a computer as a check, the fullest value of most exercises is obtained 
by predicting the result before having the computer deliver it. All solutions are 
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given in an appendix so that it is possible to use the book as a study guide even 
without the availability of an APL2 system. 

The functions, operators, and much of the data in the text are available on a 
3,5" disk. Either of the authors can supply particulars. 

APL2 has its roots in Ken Iverson's original concepts of a symbolic notation 
for use with computers. Through the efforts over the years of Jim Brown and his 
team at IBM's Santa Teresa Laboratory these have matured into a language 
which can be consistently used through the whole range of software develop- 
ment, that is specification, design, coding, and testing. We have attempted to 
penetrate beyond the mere description of the syntax and semantics of the lan- 
guage and provide a study in greater depth of the interaction between nested 
arrays and the various functions and operators. We hope that the present work, 
“APL2 in Depth" will encourage greater use of APL2. 

We should like to acknowledge the thorough and thoughtful review by Curtis 
Jones, without which this text would have been greatly poorer, and also helpful 
comments and suggestions from Garth Foster, Helmut Engelke, Bert 
Rosencrantz, Phil Benkard, and Ron Wilks. We are also greatly indebted to 
Jon McGrew for his invaluable help in the typographical preparation of the text. 


Ray Polivka Norman Thomson 
60 Timberline Drive Finnock House 
Poughkeepsie, New York 12603 Cliff Terrace Rd. 
USA Wemyss Bay 
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Conventions Used for Arrays, Functions, 
Operators and Indentities 


Names of Arrays 


A general principle is that “small” arrays, that is those which require fewer than 
15 non-blank characters to construct them by direct keyboard entry, are given 
either meaningful names, or one-character names, usually S for scalar, V for 
vector, M for matrix, A for array. Larger objects are given either descriptive 
names or a name such as V23 which denotes the third vector defined in Chapter 
2. Objects so named are stored on the disk which is available to accompany the 
book. 


Functions and Operators 


When a word like “pick” is used in its specific role as an APL function or oper- 
ator, it is printed in a heavy font thus : pick. 

The following conventions are used in writing defined functions and opera- 
tors: 


F a function 
2 result of a function or derived function 
L,R left and right arguments of a function 
P.Q left and right operands of an operator 
T.U.V local variables 


Operations which behave identically, or nearly so, but contain different code 
are distinguished by using different combinations of upper and lower case letters 
in their names. 

A subsidiary operation is indicated by the prefix А. 
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Labels and Comments 


Labels are named L1, L2, L3, ... and soon. 
The general format for a line in an operation (i.e. a function or operator) is: 


Cline-number] Ln: expression a comment 


There are several distinguishable uses for comments, in particular they may 
describe 


(a) constraints on arguments and operands prior to execution; 

(b) description of a result following execution; 

(c) effects on global variables in the workspace; 

(d) clarification in words of a single APL line; 

(e) description of current execution status of data and/or a program. 


Comments are permitted on the header line in many APL2 implementations. 
Where type (a) comments can be expressed sufficiently briefly this usage is 
adopted, otherwise they are given in separate lines at the head of the function, 
Most of the functions in this book are very short, and the emphasis is on trans- 
forming ideas into APL2 program fragments rather than on the development of 
programming systems where type (e) comments are more likely to be found. 
Where these occur in production APL2 code they frequently indicate the possi- 
bility of breaking down a function into subfunctions. 

Labels may be floating, that is a function line may consist of a label and its 
colon only, possibly with a comment. Judicious use of the floating label and 
comment combination can add considerably to legibility, adaptability and main- 
tenance of functions. Floating labels used in this way are another frequent indi- 
cation of suitable points for subdividing a function into subfunctions. 


Identities 


The symbol +» is used to denote “is identically equal to.” 


Contents 


Preface 


< 


Conventions used for Arrays, Functions, Operators and Identities 
Names of Arrays . . 
Functions and Operators 
Labels and Comments 
Identities 


xx REE 


1 


Functions and Arrays in APL2 
1.1 Nested Arrays and Depth 
1.1.1 Complex Numbers 
12 Construction of Arrays 
1.2.1 Vector Notation 
Exercises la 
1.2.2 Enlist 
1.2.3 Ravel with Axis 
1.2.4 Default Display of Arrays 
1.2.5 Enclose and Disclose 


Exercises 1b $ DUET я peda Were 
1.25.1 Partial Enclose and Disclose . Sea analy ow 1$ 
1252 Relationship between Partial Enclosure and Axis Quali ЕЕН НЮ уг 

Exercises 1с a et . .. 18 
1.2.6 Partition 19 

1.3 Selection oe iad e eet . +. 2! 
1.3.1 Pick and Path .......... Saas LR E comers QE te ЫЫ» m .. 21 
Кы йу ЖЕКЕЛИК 23 
1.3.3 Indexing а К а 24 
1.3.3.1 Scatter Indexing | PA ae Ж ук TID . . se sns 2$ 
шке Wilh Ante sir wa ir Baw de eS 27 
1.3.4 Index of wee 

Exercises ld 
1.3.5 Without 

1.4 Replacement 


1.4.1 Vector ‘Assignment : 
14.2 Selective Assignment 
1.5 Restructuring .. 


151 Formatting .. А 

1.5.1.2 Default rules for mined data type .2 

1.5.2 Sorting ‚43 
1.6 Comparison and Inquiry a7 


xii APL2IN DEPTH 


1.6.1 Depth Beh eh s na З 47 
1.6.2 Match а К i —" я 47 
1.6.3 Find 4 TTL ee 48 
Exercises le М $s 50 
Summary of Functions used in Chapter 1 sei adn: д $2 
2 53 
Operators... : К ео 153 
2.1 The Each Operator . La . 2.058 
2.1.1 Pervasiveness i asaya a SF 
2.1.2 Scalar Extension . " дё . 56 
Exercises 2a Solas oe — sie . 58 
2.1.3 Each with non-pervasive Functions 2-1... i.i. mene) 
Exercises 2b 9 mm ae . 6 
2.1.4 Index with Each . . . in 66 
2.2 Extensions to the Slash Operator TEPE m 68 
2.2.1 Replicate BARRE . 68 
2.2.2 Dyadic Reduction 71 
Exercises 2с . "n x 72 
Summary of Functions used in Chapter2 .... : 14 
3 А $% А OTTEET TEESE, 75 
Elementary Data Structuring сапе 156 пе 75 
3.1 Example 1. Product Stocks ....... 75 
bo ood С о уу аир Дак + 80 
3.2 Example 2. Optimizing Rental Charges "E H E 82 
Exercises 3b > ол a Sé 85 
Summary of Functions used in Chapter 3 |. ул v. 88 
4... FE В ъд ачах Р 20:09. 
Using Functions and Arrays... 7 228 
4.1 Cross-sections, Picking and Indexing cepi н 89 
4.1.1 Each and Scalar Functions " а 6, 92 
4.2 Some Illustrations using Nested Arrays ч & 94 
Exercises 4а .. TET 2.095 
4.2.1 Further Dlustrations. using Nested fest . 98 
Exercises 4b 102 
4.3 Distinctions between Similar Primitives 103 
4.3.1 First and Take/Drop ies 103 
4.3.2 First and Pick à B B . > .. 106 
4.3.2.1 Type and Prototype WReuudu ed pA е 2s 107 
4.3.3 Pick and Disclose hie На 109 
4.3.4 First and Disclose li 
4.3.5 Summary of Relationship between above Functions . $t Я n 
Exercises e Eek ee $ .. H2 
4.4 Empty Arrays and Fill Functions 114 
4.4.1 Identity Items and Meaty Functions 116 
4.4.1.1 Identity Items n 116 


Contents хш 
4.4.1.2 Identity and Inverse Functions 116 
Exercises 4d - 17 
Summary of Functions used in Chapter4 „уусун 19 
5 121 
Using Operators 121 
5.1 The Role of Operators i in APL2 121 
5.1.2 User-defined Operators 121 
5.2 Binding 125 
Exercises Sa 129 
5.3 Matching Function Arguments 131 
5.3.1 Function Composition соз ш уган ж-ке къб eee ee 131 
5.3.2 Ambi-valency oe 132 
5.4 Recursion with Functions and Operators 133 
Exercises 5b 137 
5.5 Extensions to First-generation APL Operators 139 
5.5.1 Reduction i 139 
5.5.2 Reduction with Rank Greater than one 140 
5.53 Scan Е 142 
5.5.3.1 Reversing scans 147 
5.5.4 Expand 148 
5.5.5 Outer Product 151 
5.5.6 Inner Product 152 
Жараша Mn 157 
5.5.7 Further Topics on Inner and Outer Products 160 
5.5.7.1 Inner Product and Scan 168 
5.5.7.2 Decode/Encode and Inner/Outer Products 169 
Exercises Эй si. le digg ene тү» m 
5.6 Applications of User-Defined Operators 172 
5.6.1 Control Structures 172 
LL ONLY 172 

1.2 UNLESS 172 

ТЕ е, voce ete jis Bn E pre ee T d aov fH CREE ERR 174 

1.6.1.4 UNTIL 175 
.6.2 Conditional and Alternative Function Execution 180 
Exercises 5e 182 
5.6.3 LEVEL .... 184 
5.6.3.1 LEVEL with Monadic Р . 186 
5.6.3.2 LEVEL with Dyadic P : 187 
Exercises 5f. 188 
Summary of Functions used in Chapter 5 190 
Summary of User-defined Operators in Chapter $ 192 
Г ЖК КТЕ 195 
Advanced Modelling and Data Structures 195 
6.1 Trees Without Keys 195 
6.2 Trees with Keys 196 
6.2.1 Finding Ancestors sia 198 
6228ubmes isses 199 
6.2.3 Eliminating and Swapping Subtrees 199 


xiv 


6.3 Binary Trees 
6.3.1 Trees with non-: simple Scalar Nodes а 
6.3.2 Searching Binary Ттеез 2... ...... 
6.3.3 Selective Enlist with Binary Trees ish 
6.3.4 Data-equivalent Binary Trees ......... 
6.3.5 Alternative Comparisons ; 

Exercises 6a 

6.4 Networks P 
64.1 The Vector of Paths through a network 
6.4.2 Parallel computation along реа Mor 
64.3 Assignment of Flows ч 
6.4.4 Minimum Spanning Tree Мы 
6.4.5 Precedence and Reachability ........ 

Exercises 6b > on 

Summary of Operations used in Chapter 6 


Appendix A. Solutions to Exercises 
Solutions la 

Solutions 16 

Solutions 1с 

Solutions 1d 

Solutions le x 
Solutions 2а ....... 

Solutions 2b 

Solutions 2с .... 
Solutions 3a ........ 

Solutions 3b . 
Solutions and Notes 4a 

Solutions 4b 

Solutions 4c 

Solutions 44 
Solutions Sa 

Solutions Sb 

Solutions and Notes 5c 

Solutions 5d 

Solutions Se 

Solutions 5f 
Solutions 6a 

Solutions 6b 


Appendix B. Some Key Rules and Identities 
Appendix С. List of Illustratioos 


Index. . terras 3 fas РЕ 


APL2IN DEPTH 


200 
203 
204 
204 
205 
206 
207 
208 
209 
211 
213 
215 
217 
218 
220 


223 
223 
226 
228 
229 
230 
231 


1 
Functions and Arrays in APL2 


Compared with first-generation APL, APL2 brought about a vast explosion in 
the amount of data types and structures which can be modelled. This chapter 
starts with a discussion of data structures in APL2, beginning with nested 
arrays and followed by some notes on complex numbers. There then follows a 
discussion of the principal APL2 primitive functions under the headings of 


Construction 

Selection 

Replacement 
Restructuring 
Comparison and Enquiry 


1.1 Nested Arrays and Depth 


An APL2 array is an object which possesses two properties namely data and 
structure, the latter of which has two measures, namely skape and depth. An 
array may be of any dimension, and scalar, vector and matrix are special names 
describing the special cases of 0, 1 and 2 dimensions respectively. The principal 
feature which distinguishes second-generation APLs is the concept of nested 
arrays of which the following is an example: 


M11*2 2p*CHARS' (14) (2 2p'ABCD') 16 


A nested array is an array in which any item may itself be an array, and at least 
one item has rank greater than zero. APL2 arrays are distinguished by two 
characteristics not available in first-generation APL, namely 


1. heterogeneity (mixed data types) 
2. depth (nested arrays) 


DISPLAY is a function which comes in a workspace distributed with the IBM 
products and which reveals the structure of objects with regard to nestedness, 
for example: 
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DISPLAY M11 
Sl 


epee ee 
1 ICHARSI |1 2 3 41 | 
1 шр 
1 pt [i 
| «ABI 16 | 
| ICDI 1 
put I 
p—— Y 


The depth of M11 is given by 


=М11 
2 


ie. two is the maximum number of line crossings in DISPLAY M11 required to 
reach the most deeply nested part of the array. The arrows on a DISPLAY box 
indicate separate axes, and so the total number of arrows is the rank of the 
array. 

Every array possesses (a) data, and (5) structure, i.e. shape and depth. Shape 
relates to the data organization at any given level of nesting. Distinction is 
made between an item of an APL2 array, and the contents of the item, a term 
which implies the removal of one level of structure. The contents in general will 
consist of further APL2 arrays which may themselves possess structure, and so 
on in a nested fashion. For example the item of M which occupies the first row 
first column position is a five-item character vector whose contents are the five 
characters 'C* 'H' 'A* *R' and 'S*. Evaluation of APL expressions thus 
involves a structure phase which logically precedes evaluation of data values in a 
function phase. 

The depth of an array relates to the nesting of the data items. While shape (р) 
determines the shape and rank of an object, depth (=) indicates the degree of 
nesting within an array. It returns a non-negative integer which defines the 
maximum number of levels of structure to be penetrated in order to get to a 
simple scalar where simple means non-nested. 

Here is a more elaborate example: 
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A+'CHARS' 
Bei3 
C*'A'2'B* 
0+10 
Е+2 2p'ABCD* 
Fe2 2р2 &4'АВ'(13) 
11А ВСрЕЕ 5 '5' 
DISPLAY V11 
ne 


1 
te ra e pt 12—71 | 
| ICHARSI 11 2 31 1А 2 B| 10| +AB| + 2 5 155 1 
PbS CL h L CD | 1 -1 
I L4 me re 1 I 
| 1 IAB] [12 3| 1 І 
I p LL) hed ү 1 
I rr І 
L 


€: 


The top left corner of a DISPLAY box contains information about rank and 
emptiness thus: 


+ and + denote the first and subsequent dimensions respectively; 
ө and © denote emptiness, if present, in these dimensions. 


In the case of an empty array, DISPLAY exhibits the non-empty dimensions, 
using the prototype of the array to show all items. The prototype of any array is 
another array which indicates the type and structure of its first item but not its 
data. If an array has no non-zero dimensions, its DISPLAY box nevertheless 
indicates its rank (in the case of a scalar by omitting the box altogether), and 
the contents are either a 0 indicating numeric, or a blank indicating character. 
The DISPLAY of an empty numeric vector is thus a box containing 0, that of a 
numeric array with shape vector 0 4 is a box containing a vector of four zeros, 
and that of an array with shape vector 2 0 4 is a box containing a 2 by 4 
matrix of zeros. The function PROTO below defines prototype, and is discussed 
in more detail in Chapter 4. PROTO also illustrates the style of function display 
which will be followed in this book, that is with no vs, and with the header line 
numbered [0]. 

[0]  Z«PROTO R 

C1] Ze*OpR 


The bottom left corner of a DISPLAY box contains information about type and 
depth according to the following code: 


No symbol character data 
- scalar blank or character scalar (e.g. final 5 above) 
when non-scalar arrays are present 
~ simple numeric 
simple mixed character and numeric 
€ nested 


+ 
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1.1.1 Complex Numbers 


A further advance with second-generation APLs is the admission of complex 
numbers. In APL2 complex numbers may be expressed either in Cartesian or in 
polar form so (0 + jl) can be represented in two equivalent ways: 


(0712 =1р9о 
1 


+C returns the complex conjugate of C. |С returns the magnitude (absolute 
value) of c. 

RA+0J1xIA combines dimensionally compatible arrays RA and IA, repres- 
enting real and imaginary parts, into a single complex array. 

The circle function o is extended to make it easy to carry out standard math- 
ematical operations with complex numbers thus: 


left argument left argument 
9 Real part Imaginary part 11 
10 Argument Phase 12 
79 C (i.e. null function) Cj (ie. cx031) 711 
710 conjugate of C (i.e. +С) exp(Cj) 712 


If C is thought of as a point in the Argand Diagram with O as the origin, 
7100C represents the reflection of OC in the real axis, and 7110C represents its 
anticlockwise rotation by one right angle. 

9 11*.0C breaks a complex array into real and imaginary parts and its 
shape is 2, eC. 


9 110«C also breaks a complex array into real and imaginary parts but the 
result is nested of shape 2. 


OJ1x*C exchanges real and imaginary parts. 


Illustrations : Complex numbers 


a. The fourth root of j (031) can be obtained in two ways, viz. 


071101) *,25 
0,92388J0.38268 

O0J1*.25 
0.92388J0.38268 


b. The classical equation in mathematics connecting e, п, and j, namely 
exp(nj) 7-1, is: 

712001 
2. 


с. De Moivre's theorem is illustrated by: 
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THETA«1203J1 

(7120 THETA) x4 ^ (expj@) to power 4 
0.2830.96 

71204xTHETA a exp j46 
0.2830.96 


d. Find the square root of 
5-415 
EX] 
and verify the result: 
(537154327 1)5.5 
2371 
057715+3771)227-142 
А 


1.2 Construction of Arrays 


Vectors are no less useful in APL2 than in first-generation APLs. They may be 
constructed either 


explicitly through a number of functions such as ravel, reshape, catenation 
and enlist; or 


implicitly through vector notation. 


1.2.1 Vector Notation 


The standard syntax for constructing numeric vectors from simple scalars is to 
separate items with spaces thus: 


10 20 30 


It is possible to construct character vectors in the same way: 

a ope ene 
as well as in the more common fashion *APL'. Vector notation allows any item 
to be replaced by a variable name or a parenthesized expression, e.g. 

A B 20 


10 ‘A’ (X-2) 


In the last example the parentheses are essential to achieve the required 
grouping into three terms. Without them the items form two groups, three of 
them in the left argument of = and one in the right. 

Such parenthetical groupings may be nested, for example 
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DISPLAY V12«12 (13 (14 15)) (16 17) 


| 


| 

p—À 1 116 177 | 
13 114 151 | 0—1 | 
| 
| 


1 

i 

1 bd | 
à 


(0V12),2V12 


Parentheses in conjunction with vector notation are used as a form of implicit 
enclosure. They are non-redundant if they serve both to group and separate, 
regardless of where they appear in an expression. Vector notation was originally 
called "strand notation," and the terms are equivalent. 


Illustration : Separating and Grouping 


Consider the following expressions 


a. (10 20) 

b. 10 (20) 

€. 10 (20) 30 

d. 10 20 ((30 40) 

e 10 ([5.6) 30 

f. 10 (20 30) (40 50) 


In the first three, the parentheses are redundant, in (a) they group but do not 
separate, in (b) and (c) they separate but do not group. In (d) one set of paren- 
theses is redundant - the inner ones group but do not separate, while the outer 
ones separate but do not group. In the non-redundant case (e) the parentheses 
define a subexpression, while in (f) both sets of brackets both group and sepa- 
rate. 

Such distinctions are also indicated in the APL2 default output display by the 
use of indentation to show depth, for example 


10 20 30 
10 20 30 

10(20 30) 
10 20 30 


DISPLAY serves the same function but makes the difference even clearer: 
DISPLAY"(10 20 30)(10(20 305) 


| creer | 

110 20 301 1 ei 

0—1 +! 10 120 301 | 
П 4—1 | 
be y 
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Exercises 1a 


1. Sketch the graphic picture which the DISPLAY function would produce for 
the following: 


a. *ABC' 17.6 

b. 2 3р2 2 4 

с. 23 4224 

d. 2 ар'АВС' *' * * '6*'(12)(10)9 6 
е. "At 7.5 5 '5' 

f. 0 3р5 

g 0 3o'A* 

h. 0 3p 5 ‘A’ 

i 3 Ор S ‘A’ 

j O 3p(5 "ANDY 
К. О 3р('В'6)(5'А') 
l O Op('B'6)CS'A*) 
m O 2 Op('B'6)(5'A') 
n 


each case what is the prototype? 


2. Two empty arrays are displayed below which differ in two details. Use the 
rules for DISPLAY boxes to find APL2 expressions which could have generated 
them. 


r9———3À с | 
| жаке, 1 | p 1 
1 1001 1 1 Фо 0| | 
1 6— 1 | bed | 
Tiap tea 


3. Write a monadic function DIS which on the first line displays the shape and 
depth of its argument thus 


SHAPE: 2 DEPTH: 3 


and on the following lines shows the result of DISPLAYing the argument. This 
function can be used to give the total descriptions of APL2 objects which are the 
subject of exercises 4-6. 

4. а. What are the value, shape and depth of 1(2 3»0«(1304 ? 


b. If Аа 5 Be3 C+*APL', what are the value, shape and depth of 
3p(A ВЭС ? 


5. With A and B defined as іп qn. 4, what is the difference between 


a. А Bx5 A and b. A(Bx5)A 7 
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6. (Ù) If A+2 3016 and Bé3, all but two of the expressions below are of shape 
two - which are the two? 


а. (А+1)А T: (oA) (ов) 
b. А 2 Е. CCpA)(pB)) 
€. А 2-1 h AB 

d. A 2 71 i AU cem Ы 
e AC2(3 42) i *AP' 'L* 


(ii) All but two are of depth two - which are they? 


7. What can be said about the value of (pA) 19A where A is any array? If it has 
no value, what type of error is generated and why? 


8. Within each row which expressions are identical for a general array 8? 


() а. в+1з Ъ.(В8+13) с. (CB+13)) 
(ii) а. в‹В+1) (В+2) b. в (B*1) (В+2) c. B(B+1)B+2 
(iii) a. B Bes 6 b. B(Be5 6) с. (B В)р5 6 


9. a. What fact about complex numbers is expressed by the identity 
(CxeC) +» (IC) 82 1 


b. Write a function QUAD whose argument is the vector of coefficients (not 
necessarily real) of a quadratic equation in descending power order, and whose 
result is a two-item vector of roots. Use QUAD to display the roots as a two- 
column matrix with the real parts in the first column and the imaginary parts in 
the second column. Illustrate by solving x? + x + 1 = 0. 

Obtain the values of QUAD 1 233 4271. How would you confirm that 
these were indeed the roots? 
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1.2.2 Enlist 


While the primary means of constructing arrays is the shape function, other 
primitive functions allow alternative construction techniques, c.g. enlist and ravel 
with axis. Enlist returns a simple (i.e. non-nested) vector whose items are the 
simple scalars of its argument in order. It thus removes all nested depth - analo- 
gous to the way in which ravel reduces dimensionality for simple arrays. 


V12«12(13C14 15))(16 17) 
єу12 
12 13 1% 15 16 17 


1.2.3 Ravel with Axis 


In APL2 ravel is extended to allow qualification with axes. The qualifier must 
be simple and, assuming O10=1, may be any of 


(a) a positive integer scalar in the range 1 to the rank of the argument; 
(b) a vector of consecutive integers from this range; 

(c) a positive fraction not exceeding one more than the argument rank; 
(d) 10. 


Case (a) means do nothing, that is Az, [NJA for any valid integer N. 
For case (b), »[1peA] is equivalent to ravel without axes, so for a three- 
dimensional array, there are two meaningful cases as illustrated below: 


A11 
SPARE 
A 
DIME 


NO 
THANK 
You 
pA11 
2315 


р0+,С1 2JA11 
SPARE 
A 
DIME 
NO 
THANK 
You 
65 
eO+.C2 3]A11 
SPAREA DIME 
NO THANKYOU 
2 15 


The effect on the shape vector is to merge a consecutive pair of items by multi- 
plication. 
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Case (c) is similar to laminate in that a new axis is inserted whose contribution 
to the shape vector is 1 (with laminate the contribution is 2). In the case of a 
3-dimensional array there are four possibilities the first three of which are 


DISPLAY,C.1JA11 я dimension vector = 1 2 3 5 


г 
v** SPAREI 


DISPLAY,[1.1]A11 т dimension vector = 2 1 3 5 


DISPLAY,[2.1]A11 a dimension vector = 2 3 1 5 


The fourth possibility of case (c), namely ,(3.12A11 has the same effect as 
case (d), that is if the qualifier is 10 a 1 is catenated to the end of the shape 
vector and the array restructured. In the particular case of vectors the result is 
a column matrix of shape (eV) , 1. This is a convenient way of converting a row 
vector into a one-column matrix, e.g. 
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s [101eV12«12C13C14. 15)})(16 17) 


1.2.4 Default Display of Arrays 


The default output routines for mixed character and numeric data use rules that 
guarantee a pleasing and intelligible display in the great majority of cases. In 
brief, numeric items in columns have decimal points aligned and columns are 
right justified unless they contain only character data in which case they are left 
justified, The combination of vector notation and these rules makes the writing 
of ad hoc reports a great deal easier as the following illustration shows. 


Illustration : Writing Reports 


ROWS+'FRANCE* 'GERMANY' 'SPAIN* 
COLS*«'' 'JAN' 'FEB' 'MAR* 
SALES*3 3552.3 12.95 34 15.3 9.5 12.25 20 35.5 39 


COLS, [1]ROWS, SALES 
JAN FEB MAR 
FRANCE 52.3 12.95 34 
GERMANY 15.3 9,5 12.25 
SPAIN 20 35.5 39 


——————————————M——————————— 


1.2.5 Enclose and Disclose 


Array structure can be created, removed and altered using the functions 


enclose(c) 

enclose with axis(c C11), 
disclose(2), 

disclose with axis(2C17) 


While vector notation imparts structure to the vector it creates, the enclose 
function (c) is necessary to establish a bounding structural layer around any 
Object other than a simple scalar. The result of enclosure is always a scalar. For 
example 

3 üpc'APL2' 
APL2 APL2 APL2 APL2 


APL2 APL2 APL2 APL2 
APL2 APL2 APL2 APL2 
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creates a matrix each item of which is the scalar produced by enclosing 'АРІ2'. 
The vector V12 of Section 1.2.1 could equally have been created by explicit 
use of the enclose function, viz. 


V12«12,(c13,c14 15),c16 17 


(oV12)€zV12) 


For simple scalars only it is true that 
Sisequivalent to cS 


Thus repeated enclosure of a simple (i.e. non-nested) scalar has no effect on it. 
It is like a cork on water - however hard it is hit, it continues to float. This can 
be used as a test for simple scalars, and IBM APL2s are sometimes referred to 
as “floating systems” as opposed to “grounded” systems. 

Disclose is the monadic form of >. It reduces depth throughout an entire 
object. It removes one layer of nesting (assuming at least one exists) and there- 
fore acts as an inverse to c: 


DISPLAY 2с(1 2)(3 4) 


Disclose is valid only for arrays whose items at the top level have the same rank, 
although they do not require to have the same shape. When they do, disclose 
brings a shape component from the internal structure to the outer structure: 


e(1 2 3) "АРІ" 


2 

»(1 2 3)'APL* 
123 
APL 

p>(1 2 3)'APL' 
23 


If objects at the topmost level do not have the same shape padding is necessary 
to preserve rectangularity: 


241 2)3'APL' 


212 
12 о 
13 14 15 
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Exercises 1b 


1. This exercise tests understanding of the floating scalar rule, that is that 
5е+с5 for scalar S. 


(i) Are there any differences between the following six phrases when A, B and 
C are all numeric scalars? 


а. А,В,С d. UADB CD 
b ABC с. (аА) (<В) (cC) 
с. (А) СВ) CO) f. (А), (<В), (С) 


(ii) Repeat the above assuming А, В and C are all two-item vectors, e.g. 
А+1 2 B10 20 Сез 4 


2. If Eis (2 2о'Х')77(15) what is the difference between 
а. Е,4 5 and b. E,c& 8 ? 


3. If F is (2 301623, evaluate 


a. F d. 10xF 
b. -F е.1 2 3xeF 
с.1 24F f. FxF 


4. Create a 2 by 3 matrix which displays as 


APL2 APL2 APL2 
IS IS IS 
GREAT GREAT GREAT 


APL2 APL2 APL2 
IS IS IS 
GREAT GREAT GREAT 


5. Suppose Z«'* and X«13. Describe in detail (that is by giving value, shape 
and depth) the values of Z after each step in the following two sequences (a) and 
(5: 


a. Z«Z,cX b. 2+2 X 
Z«2,cX 2+2 х 


Which if any of your four answers аге the same ? 


6. Distinguish carefully between 


а. t"ye*X* b. e exe 
€ t,'X'* d. ''(etxt) 


Which, if any, of these four expressions are identical? 


7. If Z«* * and X«13 what are 
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а. 2Z,cX b. sz X 
с. cZ,e"X' d. ez 'Х'? 


8. What are the differences between 


а. .'ABC' 'DE' and e'ABC' 'DE' 
b. .(1 3p'ABC')'DE' and є(1 Зр'АВС')'ФЕ' ? 


9. Calendar construction 

a. Write a function MONTH which constructs a calendar for a month given the 
day of the week of day 1 as an integer from 0 to 6 (Sunday is 0,...Saturday is 6) 
together with the number of days in the month. Head each column with the 
appropriate three character title 'SUN* 'MON* 'SAT'. For example 


3 MONTH 30 
SUN MON TUE WED THU FRI SAT 
1 2 з wu 
5 6 7 8 9 10 11 
12 13 14 15 16 17 18 
19 20 21 22 23 24 25 
26 27 28 29 30 


b. How would you change the calendar so as to display the weeks vertically? 


c. How would you convert the calendar mixed data type array into one of all 
characters, e.g. for transmission as an ASCII file? 


d. Assume that a twelve item global vector DAYS contains the number of days 
in each month in a non-leap year. Write a function START. DAY which takes as 
its left argument a Boolean value LEAP, as its right argument the day of the 
week of 1 Jan (as an integer), and returns the twelve item vector SD of integers 
representing the start day of the week for each month. 


€. Use SD and DAYS to produce the calendar for the entire year. Shape it to 
appear by quarter, i.e. the first three months appear as the first row, etc. 
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1.2.5.1 Partial Enciose and Disclose 


Formally partial enclose and disclose are known as enclose and disclose with 
axis. When an array is enclosed, it becomes a scalar, that is an extra layer of 
structure is added. Sometimes encapsulating the whole array as a scalar is not 
what is required, but rather enclosure along one or more of its dimensions. For 
example, given a simple matrix of names, it is useful to be able to create a vector 
of name vectors. Enclose with axis, eC I JA, accomplishes this, e.g. 


M12+3 Sp*JOHN TED JASON’ 


M12 
JOHN 
TED 
JASON 

€(2]M12 


JOHN TED JASON 


Consider next some examples with numeric arrays: 


Me2 3016 
pM 


c[1]M a converts matrix into vector of column vectors 
14 25 36 
PcL 12M 


«(21M ^ converts matrix into vector of row vectors 
123 456 
р=[21М 
2 


In the next example the planes of the array АЗ become two nested items: 
Ae2 3 4p124 


pA 
234 

рез ЈА 
2-3 

c(3]A 


12 з 4 5 67 8 9 10 11 12 
13 14 15 16 17 18 19 20 21 22 23 24 


The axis specification is not restricted to a single axis: 
оє[2 31А 


=(2 31А 
123 4 13 14 15 16 
5 6 7 в 17 18 19 20 
9 10 11 12 21 22 23 24 


The rule is that the axes which are specified are those which become nested and 
thus the following identity holds: 
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cCippAJA ++ cA 
Also the empty vector is acceptable as an axis specification, however it causes 
no enclosure: 
A +» c(10]A 
Disclose with axis has the reverse effect to enclose. With disclose the shape of 


the item nested at the top level of the structure become the last dimension of the 
disclosed array. Start by defining V as a vector of columns of M : 


Vec[1]M*2 3916 


v 
14 25 36 
ev 
3 
эү n make a vector of vectors into a matrix 
14 
25 
36 
озү 
32 


Disclose with Axis, э[ IJA, allows the shape of the nested items to be placed in 
dimensions other than the last of the newly disclosed array. The axis specified 
describes where the nested dimensions will be in the disclosed array. For 
example in making a vector of vectors into a matrix the inner-structure shape 
vector can be placed either after the existing item as in the case above, or before 
it as in 

2C1l¥ 

e>{1]V 
23 


The next example shows what happens when the axis qualifier is a vector: 
М+3 40112 
ММ+М (-M) 
(pMM) (=MM) 
p>MM 
e»[1 2]MM 


e»t! 3]MM 


1. Functions and Arrays in APL2 17 


2C1 37мм 

1 2 з 4 
71 72 73 ^4 

7 8 
573578 

9 10 11 12 
79 7-10 711 712 
Disclosure is not possible unless all of the items one level down are of the same 


rank. If however the items do not have the same shape padding takes place as 
in 


21101 20(3 4 5) 


1 
2 
o 


ure 


The number of integers specified as axes must match the rank of the items, thus 
the following identity holds: 


(р,1) = pptA 


In each case the shape vector item or items indexed by the axis goes into the 
inner structure, and the depth of the result is two. 


1.2.5.2 Relationship between Partial Enclosure and Axis 
Qualifiers 


An axis qualifier applied to a scalar dyadic function is equivalent to a combina- 
tion of enclosure and disclosure along the complementary axes: 


M*2 3p16 
M 


123 
456 
eC11M 
14 25 36 
10 20 30*c[1]M 
11 14 22 25 33 36 
25[1110 20 30*c[1]M 
11 22 33 
14 25 36 
10 20 30+[2]M 
11 22 33 
14 25 36 


These ideas extend in a natural way to arrays as the following exercise shows. 
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Exercises 1c 


1. a. Defining Me2 4.18 write an expression which transforms M into a three- 
dimensional array each plane of which is a three-times repetition of a row of M, 
ie. 


NNN 
w 
Poe 


= 7 
5678 
5 7 


b. Defining V«i3 write an expression which transforms V into а three- 
dimensional array with two planes and four columns each column of which is V, 
ie. 

11 
22 
33 


wna 
wna 


a 37 
2222 
3333 


2. If M13 and A12 are defined as follows: 


М13+3 4p'ABCDEFGHIJKLM’ 
А12+2 3 4p *ABCDEFGHIJKLMNOPQRSTUVWX* 


what are value, shape and depth for each of the following : 


а. cM13 j =C1JA12 

b. >м13 k. eli 2]А12 
C, 2cM13 l et1 3JA12 
d. c2M13 m. cí3 1]А12 
e. c[11M13 n. c[2 3]A12 
f. ec21M13 о. «Сз 2ЈА12 
в. eC1 22M13 р. c[131A12 

h. «(2 121M13 9. ¢f2 1 3]А12 
i cri0]M13 
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1.2.6 Partition 


Partition is another form of enclosure. Enclose (<A) forms a scalar of an entire 
array A. Enclose with axis (-L IJA) forms a set of items by enclosing along spec- 
ified axes. Partition (VeA) and partition with axis (Vc 12A) permit grouping into 
separate items portions of data along a specific axis where the left argument of 
partition determines the nature of the enclosure and the axis specification deter- 
mines the axis along which the partition is to occur. 

As an example the following line constructs a three-item vector from a simple 
numeric vector. 


DISPLAY 1 2 2 2 3 3c12 13 14 15 16 17 


Cre a адаа 
1 


ПИ oa qe еза 

| 112i 113 14 151 [16 171 | 
| = LLLI LII 
La —Ó——— ÁÁ—————À 

The left argument must be a sequence of non-decreasing non-negative integers, 
jumps in which correspond to the start of a new partition. In addition zeros 
may be inserted anywhere to denote that the corresponding items in the right 
argument are omitted in the result. 


DISPLAY 1 0 0 0 3 3c12 13 14 15 16 17 


| 1421 116 171 | 
{еш 34] 
dg 1 
The non-zero items in the left argument do not need to be consecutive, e.g. 
1133 7 7c' ABCDEF' 
AB CD EF 
A partition may have an axis qualifier, so a 5x6 matrix can be made into a 3x6 
matrix of vectors by e.g. 


DISPLAY 1 1 3 3 7c(115 6p'ABCDEF' 
IEE] (ЕР 
Lo 


+ 

| 

| 

Ж» rt 

| IAAL IBBI ICCI IDDI IEEI FFI 
| I — жегш LL. LI 
!r rm rm orm m rt 
П IEI IFI 
! 
L 


E 
L 
Г 
г 
L 
C 


In this case partition with axis reduces the number of rows. Partition along the 
last axis of a matrix gives a matrix of vectors with a reduced number of 
columns: 
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1133 7 c[2]6 Sp'ABCDE* 


94935 


AB CD 


As usual, if no axis qualifier is present, the default is the last axis. In all cases 
the shape of the left argument must match the dimension along which the parti- 
tion is to occur. 


1133 7c2 3 5p' ABCDE* 
cD E 
CD E 
Ср E 
CD È 


CD E 
CD E 


Bae BBB 


In the next example, the effect of two successive partitions is to reduce a 2x6x5 
array to a 2x4x3 array of vectors: 


122233 4=[2]1 1 3 3 762 6 Sp'ABCDE" 
CD E 

AB CD CD 

AB CD CD 
CD 


E 
E 


CD CD 
CD CD 
cD 


AB 
AB 


EBEB BEBE 


E 
E 
E 
CD E 
E 
E 
E 


Partition applies in the same way to numeric right arguments: 


1 2 2c[1]3 5pi15 
1 2 3 a 5 
6 11 7 12 8 13 9 14 10 15 


Items in the left argument must be non-negative, otherwise a DOMAIN ERROR 
Occurs. As with the vector case above items corresponding to 0 are not carried 
into the result, e.g. 


O 2 2c(113 5p115 
6 11 7 12 8 13 39 14 10 15 
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illustration : Grouping like items 


vev on an ordered vector V creates a vector of vectors each containing identical 
items: 


Wet 1.4.23 3 5 & 5 5 
DISPLAY VcV 


уэ, үү серверне | 
1111] 13 31 I5 55 511 
0—1 —! 


Illustration : Stem and Leaf Plot 


Partition provides the foundations of a "stem and leaf" plot, ie. a pseudo bar 
chart in which the stems correspond to a range of values and the leaves on each 
stem are the (possibly rounded) numbers which fall into the corresponding 
range. Here is an example: 


Re?10p40 


R 
21 34 2 3 22 27 1 16 3 17 
»C10J (f. 1xR) eReRE AR] 
1233 
16 17 
21 22 27 
34 


1.3 Selection 


The functions pick, first, index and without provide a variety of means of 
Selecting items from arrays. 
1.3.1 Pick and Path 


The function pick reduces or "penetrates" depth in the sense of going through 
the levels of structure shown by the DISPLAY of an array. 
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V12«12(13(14 15))(16 17) 
DISPLAY V12 


e—a 


| p— — ——3 1—1 
1312 1 p—À 1 116 171 1 
I | 13 [15 15] | bot | 
( [i 7—1 | 1 
l be ——_—___! 1 
ёё —— 
12V12 
12 
2212 
13 14 15 


Pick is like indexing with penetration, that is depth reduction, and so faulty 
arguments result in INDEX ERRORS. 

A simple scalar is the only object whose depth is zero. 

(212812) (222V12) C232V12) 

021 
The left argument of pick is a "path" through a nested array. Items in a path 
should be read from left to right to correspond to penetration of the levels of 
structure of the object from the outside working in. 


22v12 
13 14 15 

2 22V12 
14 15 

2 2 1»V12 
14 


The left argument of pick may be a nested vector of depth not more than two, 
and further the shape of any item in the path must be equal to the rank of the 
array at that level. For matrices a nested item in a path is a vector of co- 
ordinates in an array, e.g. with M as defined at the start of the chapter: 


DISPLAY M11 
т 


ICHARS| |1 2 3 4| 
, ns | 


the following are legitimate paths: 


(2 01 2)2M11 
B 

(1 2032M11 
3 
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An empty vector in the path is necessary to penetrate a scalar level, e.g. with 
Ver ABC! (013) 


DISPLAY V 
Г 
1 
ı 
l 
І 
Le ————————À 
the second item is doubly enclosed so 2 32V is a RANK ERROR. In order to 


reach the 3 it is necessary to use 


2010)3>%у 
з 


An empty vector used іп this way can be thought of as а “level-breaker.” Іп 


general it is not wise to mix vector notation and explicit enclosure in the same 
statement since an extra level of nesting may inadvertently be created. 


1.3.2 First 


First (+) is the monadic function which uses the same symbol as take but its 
semantics are quite different. First penetrates the first level of structure and 
produces the first item there, as opposed to indexing which does not penetrate. 
(This topic is covered in more detail in Chapter 4). 


V12«12C13C14 15)) (16 17) 


4V12 
12 

40V12 
16 17 

(OV12)01) 
16 17 


DISPLAY (^0V12) ((0V12)(11) 
puT———————À 
I 

1116471 | p—À | 
1—1 11 

|| 1 ti} I 
1 L 
L 


FEN 
LES 
aw 
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If there is no item of v within the outermost level of structure, a so-called fill 
item is returned. This is basically a non-empty substitute item for an empty 
array with zeros where the type is numeric and blanks where the type is char- 
acter. 


DISPLAY 40p(5 ‘A*)(*BCD' 6) 
fo І 
— 

DISPLAY tOpc(5 'А')('ВС' 6) 
po F> 


І 1 
l bg 
I I lot! 
I bg 
I П 
Lg —————————À 


This topic is covered in greater depth in Section 4.3. 


1.3.3 Indexing 


Two forms of indexing are available in APL2, bracket indexing and scatter 
indexing. The latter is sometimes informally known as “squad” indexing because 
of the shape of the symbol (squashed quad). With nested objects the principal 
difference between pick and indexing is that the former reduces depth 


12412013014 15))(16 17) 
22%12 

13 14 15 
22212 

2 


whereas the latter does not. 
20v12 
13 14 15 
=20У12 
з 


The quantities V12[2] and 21712 are identical, and both are equivalent to 
¢22V which suggests that c» and C] can be thought of as pre- and post- 
brackets respectively. In structure terms indexing cross-sections arrays whereas 
pick selects items or subarrays from arrays. 

For all simple vectors v it follows from the floating scalar rule that V( 12 and 
12V are identical, that is there is по need to distinguish an item and the cell 
containing it. With nested arrays however this distinction becomes one of crucial 
importance. 
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1.3.3.1 Scatter Indexing 


This is a versatile facility which nevertheless requires some care in its handling. 
A basic requirement is that the shape of the left argument is equal to the rank 
of the right argument as in the following example: 


A+3 40112 


The left argument may be nested so that a 2 by 2 cross-section of A can be 
defined by e.g. 
(3 2)2 DJA 


10 11 
6 7 


The name "scatter indexing" derives from the fact that it is possible to consider 
the items of an argument such as (3 2)(2 3) as individual indices, and 
thereby select items one by one using the each operator. Although the discussion 
of operators is the subject of the next chapter, the importance of this case to the 
index function demands its mention here. An example of scatter indexing is 


€3 2)(2 3) "<А 
10 7 


Whereas the left argument of pick may be indefinitely nested, the depth of the 
left argument of index may not exceed two. Also it is not possible with either 
form of indexing to penetrate nested arrays using a single application of the 
index function, for example: 


М11+2 2e'CHARS'(14)(2 2p'ABCD') 16 
DISPLAY M11 


Прога ere | 
ICHARS| 11 2 3 4| 
LIÉ 


1 10011 
CHARS 

zi 10M11 
2 


Consider the following attempts to extract the character H from the matrix M11: 
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201 10M11 
RANK ERROR 

201 10M11 

AA 

2021 12M11 
H 


These show that repeated applications of indexing alone are not sufficient to 
extract a nested item. The cause of this apparent dilemma stems from the shape 
of the result of indexing. Informally the rule is 


the shape of the result is the catenation of the shapes of the indices. 


Formally for a rank two array M and valid I and J with either form of indexing, 
if 

R1*M[1:J] 

R2«(I DIM 


then the shapes of the results are 


PRI +» (pI), (pJ) 
pR2 ++ (pI), (pJ) 


The following phrase selects two copies of the first row of M11, and then the 
second item within each of these: 


(€1 1)2)0M11 
1234 1234 


With the shape rule in mind, observe the difference between 


DISPLAY ((1 1)2)0M11 


> 
et )] 
1123 411123 411 
— WI 


[ 
[ 
| be 1 
be 
d 
DISPLAY ((1 12(,2))(M11 


1123 4] 
Ld 


pL 
1423 41 


i ine ios ete 


| 


є 


The shape of the result of indexing can also be stated in a rank independent 
fashion. If Re«I J K)gA then 


pR +» 25,/p"IJK 


Another rule concerning 0 is 
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the shape of the index must equal the rank of the array, 


or more exactly, for valid ІПА 
(р,1) +» ppA. 


Scatter indexing is related to bracket indexing by identities such as the fol- 
lowing: 
IUV ++ vcr] 
СІ DOM +» MLIIJJ 


Indexing is highly sensitive to depth and great care must be taken to distinguish 
situations such as the following: 


GID ODIM = МС,І;,71 


о 
€CGI) (DOIM) = МС,І;,Ј] 
1 


1.3.3.2 Indexing with Axes 


Axis qualification may be applied to 1. The axes not included in the axis spec- 
ification take on ali possible values. Thus the second row of M11 in the previous 
section is 

21С12м11 


АВ 16 
ср 


and the second column is 


2002]M11 
1234 16 


The first item in the second row can be found in either of two ways: 
1020c12M11 


CD 


or more simply 


2 10M11 
AB 
CD 


The latter exemplifies the index rule given in the previous section. Since 0 iden- 
tifies items and not their contents it is not possible to reach the character *В' in 
the matrix by indexing alone. In order to penetrate depth a depth-reducing 
function such as disclose or pick must be used, e.g. 


28 APL2 IN DEPTH 


1 2022 10M11 
B 

(C2 1201 2))20M11 
B 


The axis qualifier may be a vector of integers corresponding to axes. If M is 
extended to three dimensions: 
DISPLAY М+М11,[.51®М11 


г 
ICHARS| 1423 4] 
[— — -Ó 


ra 
*ABI 16 
ICD} 
uo 


* 

І 

1 

1 

1 

| 

| 

1 

UR ei 

| ICHARS| + 
y —w1 

1 

d = 
(1123 4) 16 
pb 

L e—a 

the following are valid index expressions: 


2 10C1 31M a 2nd plane, Ist column over all rows 
CHARS 1234 


2 10t3 21M a 2nd column, Ist row over all planes 
1234 AB 
ср 


The following table of pairs of equivalent expressions should further clarify 
the comparison of bracket indexing with 0 indexing. 


5+25 
У+' ABCDEFGH * 
М+3 40112 
(10205 5 
30v vr31 
(єз 1 200v УСЗ 1 21 
2 10M МС2;1] 
(2 1203 4)0M MCZ 1:3 4] 
(2 1) з 0м МС2 1:31 
10C11M ME13] 
10L27M ML :13 
(e2 1›50[11М M[2 43) 


(c2 1)D£21M МмС:2 13 
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1.3.4 Index of 


The indexing functions applied to a vector take an index and select the matching 
data item. Index of does the opposite in the sense that it takes a data item and 
returns the index. If the data item is not found within the vector an integer one 
greater than the length of the vector is returned, and if the data item appears 
several times within the vector, the value returned is the index of the first occur- 
rence in the vector. 

The left argument of dyadic ı can be thought of as an alphabet in which the 
items of the right argument have to be sought. If the items to be sought are 
non-scalar care has to be taken to ensure that they are suitably enclosed. The 
example below illustrates the distinction between seeking the character string 
'CHARS* and seeking the five individual characters 'C* , 'H* ,"A* ,'R*,'S*. 

(M11) 1e * CHARS' 
1 


C,M11)v' CHARS* 
55555 


Illustration : Character to Numeric Conversion 


Character data can be mapped into arbitrary numeric equivalents by defining a 
left argument for index of, thereby providing an elementary coding scheme. 
ALP+' ABCDEFGHIJK* 
ALPi'HAD* 
814 
" KJIHGFEDCBA*' ; ' HAD* 
4418 


— yr 


Exercises 1d 


1. If E is (2 316)3'APL" give value, shape and depth for each of the fol- 
lowing (some of the expressions may return errors): 


а. E f. 15E К. E[11 

b. 4E 8. 1 22E 1 Et12] 

C. ^*E h. (e1 2)эЕ m. Е[<1 2] 

d. cE i (є1 2)215E n. (EC! 23901] 
е. 3E j 3eE о. 10(e1 2) (Е 


2. If We' ABC’ 'DEFG* what are 


а. Wi' ABC’ 
b. Wic ABC" 
€. Wi*DEFG" 
d. Wwi'XY* 


Wie XY" 

Wi'XY* 'ABC* 
Wic'XY' ‘ABC’ 
WiCe* XY' ) Cc ABC’) 7 


mene 
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3. a, With 


M11#2 2p ‘CHARS’ (14) (2 2р'АВСр') 16 
Ke,2 
Le, 


determine which of the following expressions match 2 10M11: 
1. (2,100011 

2. KL 0M1 

3. (K,L)0M11 

b. What is the shape of each expression? 


4. a. Which of the following expressions does not produce a RANK ERROR? 
1. 20M11 

2. 1 20M11 

3.1 1 20M11 

4. 1 €1 230M11 

5. «1,1 2)üM11 

6. (1,61 2) M11 

7. (1,1,2) [M11 

b. Why is a RANK ERROR produced in the remaining cases? 

5. With Мез 4 112 determine the value and shape of the following 
expressions: 


a. 20011M 
b. 20С23м 
€. (c2 DUIM 
d. (c2 1)1027M 


6. Given A+3 4 50160 write expressions involving 0 to 
a. extract the second plane; 
b. extract the third column from each plane; 


C. extract the third column from the second plane; 
d. extract the item in the fourth row, third column, and second plane. 


7. a. Use partition to divide a sentence, e.g. ‘SPARE ME A DIME’, into a vector 
of words. 


b. Use partition to convert a character name matrix M (i.e. a matrix in which 
each row is a name, and the shorter names are padded on the right with blanks) 
into a vector of names, each with no trailing blanks. 


c. Give an expression which converts a vector such as 
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Vv«00500017100720 16 20 


1100005 5 5 5 11 11 11 72 72 16 2 2 ,that is О is interpreted as 
“repeat the last non-zero integer.” 


8. Write a function ORDINAL which will accept a positive integer and return the 
character string consisting of the integer followed by the appropriate ordinal 
representation. For example: 

ORDINAL 3 
3rd 


ORDINAL 21 
21st 
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1.3.5 Without 


The function without (У-А) provides another way of selecting data from a 
vector, this time by discarding unwanted items. For example: 


*HELLO'~'AEIOU*® 
HLL 


Without returns all items of the vector (or scalar) left argument V which are not 
in the right argument A. The result is always a vector. 


Teta s! Br 
Ж 
А 
DISPLAY Т 
m 
IAI 
ws 
DISPLAY 'А'~'А' 
re 
M 
ы 
Tra 
o 


Special attention must be paid to nested arrays since without in its comparisons 
takes into consideration both the shape and structure of items. For example: 
K«'A' 'BC' 
DISPLAY K~'At 
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LeC,'A*) 'BC* 
DISPLAY L«'A* 


DISPLAY L«c,'A* 
pm— 


П 
IBCI | 
| 


DISPLAY L«'DE' 'А' 


He'A'Cc'BC') 
DISPLAY H~'BC* 'DE*' 


DISPLAY He(c'BC') 'DE' 


DISPLAY H«cc'BC' 


E 


In summary, the items of the right argument of the function without must reflect 
the same structure (that is shape and depth) as the left argument if they are to 
be discarded in the result. 
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Illustration : Deleting blanks 


v~* * deletes all blanks in a single string. 


lilustration : Intersection of data items 


The items common to two vectors are obtained by two successive applications of. 
without, e.g. 


A*'PICTURE' 
B**'AEIOU* 
A~B 

PCTR 
A~A~B 

IUE 


1.4 Replacement 


Bracket indexing is the simplest means of replacing parts of APL arrays, but is 
restrictive in that it is only rectangular subarrays which can be updated. Selec- 
tive assignment allows much greater generality in updating parts of arrays. 


1.4.1 Vector Assignment 


Vector assignment allows the decomposition of the assignment target into com- 
ponents each of which can be assigned individually. The general structure of 
expressions using selective assignment is 


(list of names) + value(s) 
For example: 
CA B)*(3 3р19) C! XYZ' ) 


3 
6 
» 


"£2 
WounD 


XYZ 
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1.4.2 Selective Assignment 


One form of selective assignment has always been present in APL namely 
assignment by index: 


M+3 3019 
M(2:2 3]+100 
M 

1 2 3 

4 100 100 

7 8 9 


The ability to assign to just part of an array is greatly extended in APL2. The 
Beneral structure of expressions using selective assignment is 


(selective expression) « value(s) 


The replacement takes place in two steps. The first step selects the items to be 
replaced and the second does the actual replacement. For example if M is a 
matrix 1 1&M selects the leading diagonal because the left argument of & asks 
for matching indices along both dimensions of M. 


М+3 3p19 
(1 18M)» +100 
M 
100 2 3 
4 100 6 
7 8 100 


Iilustration : Passing Multiple Arguments 


Vector assignment permits the passing of multiple (possibly heterogeneous) argu- 
ments as in the opening portion of the following function: 


[O] 2+ FN NDP;NAME;DEPT;PHONE 
C1) «NDP; three item vector 

{2] aNAME: employee name 

[3] ADEPT: dept name 

[4] &PHONE:phone number 

[5] (NAME DEPT PHONE)«NDP 


The following is a table of functions allowed in selective assignment: 
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є enlist monadic only 
L] first/take monadic and dyadic with/without axes 
* drop with/without axes 

Фе Teverse/rotate monadic and dyadic with/without axes 
f ravel monadic with/without axes 

C1 bracket indexing as in first-generation APL 
1 index dyadic with/without axes 
x transpose monadic and dyadic 
> pick dyadic only 
P reshape dyadic only 

JANN derived functions with/without axes 


Some derived functions using the operator each are also allowed in selective 
assignment. 

The nature of the selective expression can be wide ranging. Suppose V is a 
vector of vectors nested to an indefinite depth, e.g. 


У12+(12,(13(1% 15))(16 17) 


and assume that a dyadic function PATH has been written which returns the 
path in the vector right argument R which leads to the first occurrence of the 
scalar left argument L, e.g. 


14 PATH V12 
221 


The single item 14 in v12 may have its value changed by selective assignment 
thus 


((14 PATH V12)2V12)«20 
v12 
12 13 2015 16 17 


The discussion of how to write PATH as the inverse of pick is deferred until 
Section 5.4. 


Illustration : Selective Assignment In Functions 


Finding a path to an item in a vector of vectors and simultaneously changing it 
can be achieved by 


гој 2+1. CHANGE R 

[1] a Find item г.С12 іп R and change it to LC27 
C2] CCLC1]PATH R)>R)+L[2] 

[3] ZeR 


14 20 CHANGE V12 
12 13 20 15 16 17 


A variation which enables the two operations of finding and replacement to be 
performed in the same line is: 
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[0]  Z«L Change R 
[1] Ze^RCL[1]PATH R)SR)«LC2] 


14 20 Change V12 
12 13 20 15 16 17 


The idea is to return the first of R joined to an expression LC21 which is as it 
were “en passant" assigned to part of R using selective assignment. The effect of 
right to left execution is that it is the updated R which is presented as the argu- 
ment to first. Programmers who find this degree of compression objectionable 
should nevertheless be able to recognize the intention of such code when reading, 
as opposed to writing, APL2. 


1.5 Restructuring 


The following functions restructure data: 


o (reshape) » (ravel) Ф e (rotate/reverse) 
(transpose) (enclose) > (disclose) 
€ (enlist) 


+ this section discusses a variety of techniques for doing so. 

When constructing a scalar from composite data use of the enclose function is 
probably the technique that comes most readily to mind. This is not however 
the only way in which data can be reconstructed into scalar form as the foi- 
lowing illustration shows: 


Mustration : Scalarization 


The leading item in an array can be returned as a scalar, possibly enclosed, by 
applying C10)», e.g. 
(10)5(2 3916) C'ABCD) 


123 
456 


which has depth two and rank zero. Contrast this with + (first) which selects 
the leading item by removing a level of nesting if one exists: 
*(2 3516) C' ABCD*) 

123 
456 

pt(2 3p16) C ABCD") 
23 

2(122A)1/'A*cA* makes A into a scalar if it is simple and non-scalar, other- 
wise it does nothing. It should not be used to define the result of a function 
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since if A has depth greater than one, the expression reduces to e10 which 
although valid does not return a value, so a function applied to it, e.g. p210, 
gives a VALUE ERROR. 


There are by contrast situations in which scalars are an embarrassment on 
account of the floating scalar rule, and it is desirable to eliminate the possibility 
that an array has empty shape. 


IHlustration : Descalarization 


1/S makes S into a one-item vector if it is a scalar, otherwise does nothing. 
This can be useful in generalizing algorithms where scalar arguments would 
result in errors, e.g. routines which use c(poAJA to enclose an array A along its 
last axis: 


є<[ррА]А+2 2 3 2р.60 
12 34 56 

78 9 10 11 12 
13 14 15 16 17 18 
19 20 21 22 23 24 


However a scalar argument results in: 


c[ppS]S+9 

AXIS ERROR 
c[ppS]S+9 
A A 


which can be prevented by: 
<[рр5]5+1/5+9 


Sometimes it is desirable to increase minimum rank still further as the next illus- 
tration shows: 


Illustration : Increasing Rank 


СО] 2+0РКАМК R 
Е1Ј 2+((-2[роВ)+1 1,0RI0R 


transforms В into ап array of rank at least (уо. It is most frequently used as 


to) 2+МАТКІҒҮ R 
E13 Ze(C 211 1, 5FOpR 


that is make a scalar into a 1х1 matrix, or a vector into a matrix with shape 
Vector 1,»V. 
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Yet another restructuring requirement is to create a new array with the shape of 
an old one. 


Illustration : Copying Structure 
АғА is an all-zeros array of the same structure as А. 


Ae 10 is an all-zeros array with the same top-level structure as A, e.g. 
ү12+12 (13 (14 15)) (16 17) 


V122V12 
о о оо оо 
y12e10 
ооо 


The enlist function may appear in selective specification and so (€A1)+A2 uses 
the data of A2 to respecify the values of A1 whilst still retaining its structure. 

Combinations of functions and operators can be used in selective assignment 
as the next illustration shows. 


Illustration : Process numerics only in a mixed array 


The expression *OpcA returns the type of A and is discussed in detail in Section 
4.3. It copies the structure of A replacing numeric scalars with Os and character 
scalars with blanks. The following code fragment shows how it can be used in 
conjunction with selective assignment and reduction to perform actions on 
numeric items only. 

А+('ХХ' DOY 2) 

(I/eA)*1. 1xCI*c0-7^0pcA) /єА 

A 

XX 1.1 YY 2.2 


1.5.4 Formatting 


The function format gives an all character representation, either a vector or a 
matrix, of its right argument, and always returns a simple result. Here are some 
examples: 
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DISPLAY 8V13«((2 2p'ABC')2(3 4)(5 6)) 


e —————À 

vAB 234 561 

| CA 1 

ы 
06у13 

2 19 


O+T+sJ+*ASSETS - ',2.9E6,' EXPENSES - ',2.1E6 
ASSETS - 2900000 EXPENSES - 2100000 

(pT) (рЈ) 
38 23 


There are two forms of dyadic format which provide the user with very fine 
control of the data conversion and display. The first form is called "format by 
specification" in which the left argument may be either a scalar or vector of. 
integers. If it is a single integer it defines the precision of the character represen- 
tation of all the numbers in the right argument. If it is a pair of integers, the 
first defines the total column field width for each column and the second defines 
the precision for each number. To achieve variation between columns a pair of 
integers can be provided for each column in the data right argument. For 
example: 


1+2.346 ~5897.645 .01 0 
Jeo 281 
PID) 
4 36 
I 
2.346 ~5897.645 0.01 0 
J 
2.35 75897.65 +01 .00 


34629 102 5 381 
(pI pa) 

а 24 
J 

2.35 5897.6 .01 .000 


The second form of dyadic format is “format by example” or as it was ori- 
ginally called “picture format.” A simple character vector left argument acts like 
a template or picture describing where the numeric data is to be placed when it 
is converted to its character representation. This character vector contains both 
character digits which determine the character representation of the numbers, 
and also “decorators” which are characters to be displayed in addition to the 
numbers. The character vector should be viewed as a set of fields, one for each 
column of the array right argument with each field containing character digits 
and possibly decorators. The fields are normally separated from each other by 
at least one blank character. 

The decorators may be 


simple - that is appearing in the formatted result exactly where placed in the 
character vector left argument; 
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controlled - that is the appearance in the formatted result depends upon the 
number being formatted, e.g. if it is positive or negative; or 


floating - position is controlled by the character digits in the associated field. 


Each of the ten digits, '0' through '9', has a distinct meaning in the left argu- 
ment. Full descriptions are given in the language reference manuals, however 
the following summary may be helpful: 

The digits 0,5',8' and '9' form a group. 

‘O’ means display all digits including zeros. 

'5' means remove leading/trailing zeros. 

'8' means pad with the default format control character (HFCL 32). 

'9' means pad with blanks. 


The following examples illustrate how these digits can be used to control the 
display: 
С+23.758 О 8653.2 


* 0000.00'8C 
0023.76 0000.00 8653.20 

' 5555.55'6С 
23.76 8653.2 

* 5550.55'әС 
23.76 o 8653.2 

* 5550.00'sC 
23.76 0.00 8653.20 


' 8880.00'5C 
**23.76 *x*0,00 8653.20 

* 9990.00's$C 
0023.76 0.00 8653.20 

* 9990.55'sC 
0023.76 o 8653.2 


Next here is an example of a simple decorator | 


'| 0000.00'8C 
| 0023.76| 0000.00| 8653.20 


The digits ‘1’,'2’,’3’ and '4' form a group which handle controlled and floating 
decorators. Decorators may appear either to the left or to the right of their 
number or to both left and right, in which case two digits from this group 
should be used which are interpreted left then right. The meanings of the digits 
are: 


: apply a floating decorator to negative numbers only. 
pply a floating decorator to positive numbers only. 
: apply a floating decorator to positive and negative numbers. 
'4' : cancel ‘1’, ‘2’ or /3' on the other side of the decimal. 


Here are some examples to highlight these differences: 
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D«^723.758 О 8653.2 
* $5,551.50CR' 3D 


€23.76CR .00 8,653.20 
* $5,552.50CR' 8D 

23.76 $.00CR $8,653.20CR 
* $5,531.50CR'$D 

¢23.76CR $.00 $8,653.20 
' $5,531.40CR'8D 

$23.76CR $.00CR $8,653.20CR 
* €5,514, 50CR'sD 

$23.76CR -OOCR 8,653,20CR 


The digits ’6’ and ‘7’ deal with the special cases of display of dates and times: 


"0006/06/06 06:06'%2000 01 01 12 30 
2000/01/01 12:30 

"0006/06/06 06:06'52000 01 01 12 зо 
2000/01/01 12:30 


.. and of numbers in scientific notation: 
E«1753.4 ~.0024 О 72845 
* -1.704701'8E 
1.75^ 03 -2.404703 0.004 00 -2.84^ 02 


The digit '6' marks the end of a field which is terminated by the immediately 
following decorator. The symbols , . - are not allowed as decorators in this 
context. 

In the example with digit ‘7’ the symbol + has been used in place of the con- 
ventional symbol E. 


1.5.1.2 Default rules for mixed data type 


The display of arrays of mixed data type is related to the result of the 
monadic form of format. There is a default pattern whereby the alignment of 
each column is independent of the contents of other columns, viz.: 


1. If the column contains all character data, the column display is left aligned. 


2. If the column contains ali numeric data, the column is aligned on the 
decimal point and the decimal digits are right aligned. 


3. If the column contains character data and numeric data, the column display 
is right aligned. 


4. If the column contains a complex number, the character data is right 
aligned with the imaginary value and the J symbols line up. (Complex 
numbers with D and R symbols are converted to J type numbers on 
display.) A blank is provided for strictly real numbers. Both the real and 
imaginary parts align on the decimal point. 


WW as defined below ... 
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Wie'ABC’ 'DEF* 'GHI* 
W2«2345 233345 .2345 
W3«1.234 27 98765.43 
WW<3 350W1,W2,W3 

we 


ABC DEF GHI 
2345 233345 0.2345 
1.234 27 98765.43 


+. appears identical in its output display to зим: 


SWW 
ABC ABC ABC 
2345 233345 0.2345 
1.234 27 98765.43 
However: 
WWzsWW 


o 


The difference is that =ww is 2 while =sww is 1. Since the result of format is 
always simple 8A provides a guaranteed means of denesting arrays. 


Illustration : Convert an array of arbitrary rank into a matrix 


О 1+0 "1&9 cUPRANK A (sce Section 1.5 for UPRANK) transforms any array A 
into a simple character matrix. 


1.5.2 Sorting 


Grade-up and grade-down may take a left argument provided that the right 
argument is a simple non-scalar character array. In this case the left argument 
defines an alphabet or collating sequence. Where the collating sequence is a 
simple vector, it defines “alphabetical order" in the normal usage of that term. 
For example: 
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M14«5 3p 'COWBEEYAKCATSOW' 
M14 


* ABCEKOSTWY * 4M14 
24153 
M14['ABCEKOSTWY'AM14:] 


The collating sequence may have rank greater than one, in which case it is the 
last axis which is the most significant. This means that if a rank two collating 
matrix is supplied as left argument, all characters in its first column precede any 
in the second column, all of which precede any in the third column and so on. 
Suppose a collating matrix COLSEQ is defined as 


O+COLSEQ+3 2p'BAYSOC' 
BA 
ys 
oc 


and used to order the rows of M14. Look first at the initial characters of each 
row of M14. Since C and S are absent from the first column of COLSEQ, CAT, 
сом and sow all follow BEE and Yak. The priority of BEE and YAK is judged 
by observing their second characters. A and E are both absent from the first 
column of COLSEQ, however A is present in the second column from which E is 
absent and so YAK precedes BEE. To order the other three rows observe that S 
precedes C in the second column of COLSEQ and so SOW precedes both COW and 
CAT whose order is determined by the first column of COLSEQ in which O is 
present but A is not. 
M14(COLSEQAM143 ] 

YAK 

BEE 

sow 

cow 

CAT 


The above sounds complicated but the rationale is made clear by considering the 
most commonly used rank two collating matrix which is 


abcdefghijklmnopqrstuvwxyz 
ABCDEFGHIJKLMNOPORSTUVWXYZ 


This matrix represents two collating sequences, the major one along the last axis 
and the secondary one along the first axis so that all names beginning with the 
same latter are grouped together regardless of case. 
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illustrations : Alphabetic sorting of vectors and matrices 


The Atomic Vector is a system variable which contains the 256 EBCDIC code 
representations of the APL2 character set. Letters of the alphabet in the same 
case occur in natural order in OAV which leads to the following technique for 
sorting either vectors of words or matrices whose rows are words: 


V14e"SPARE' 'ME ‘A' ‘DIME’ 
V1I4(OAVAV14) 
A DIME ME SPARE 


гој Z*SORTC R 
[13 Z+RCOAV4R; 1 


SORTC»V14 


For a three-dimensional character array dyadic grade-up sorts the array by 
planes: 


»(3V14)(M15*3 4p'NOT А CENT!) 
SPARE 
ME 
A 
DIME 


NOT 
A 
CENT 


pT+>(>V14)M15 
245 

TCUAVAT; ; 
NOT 
A 
CENT 


SPARE 
ME 

A 
DIME 


A related system variable DAF returns either the OAV character given the index 
ог the index given the character, that is it is either CAV1R or DAVR]. 
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There is a Default Collating Sequence DCS in the form of a rank three array 
which is provided in a workspace UTILITY distributed with IBM APL2s. This 
has the property that the letters of the alphabet occur in alternate case order, 
ie. AaBb ... etc.. Its shape is 10 2 28 and its major diagonal plane is: 


DISPLAY 1 1 2&DCS 
E: 


ee eee 
+ ABCDEFGHIJKLMNOPQRSTUVWXYZO| 
| abcdefghijkimnopgrstuvwxyz | 
[iurare CR Nro dosi cree 


If DCS is used as the left argument of a grade function the right argument must 
be an array of rank two or above. Using DCS for ordering character data has 
the advantage that the same letters in different cases are grouped together as 
opposed to DAV ordering in which all the letters in one case precede any of the 
letters in another. Also numeric characters appear in numerical order rather 
than in character order as happens using OAV, that is '9' precedes '10* using 
DCS. 

When discussing numeric vectors, it avoids ambiguity to use the word 
"ranking" rather than "rank" to denote positions of items following cither 
ascending or descending ordering. These rankings are given by àà and àv 
respectively: 

4412 67 43 28 9 
25531 

4912 67 43 28 9 
41235 


When there are equal values in a vector АА and àv process the items in order of 
appearance from left to right within it: 


ves 335259 

AAV 
4235167 

ayy 
2563741 


This may not always be the desirable thing to do, so two alternative techniques 
are shown in the illustrations below: 


Mustrations : Averaging tled rankings 


го] Z«TUP R 
C4] Ze.SxCABR) *YACR 


to) Z«TDOWN R 
[11 Ze.5xCATYR) *V TOR 


TUP V5 3 3 525 9 

52.5 2.5 515 7 
TDOWN V 

35.5 5.53731 
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Schoolmaster's Rank 


Each group of "students" with equal scores is given the highest rank available. 


Col Z«SCH R 

[1] Z«CRiR) JAYR 
SCH V 

2552721 


The combination of partition and grade allows a simple vector to be reorganized 
as a vector of vectors where the items within each vector correspond to the same 
integer in a grouping vector, and zero represents omission: 
GV+1 21203102 
R+' ABCDEFGHI' 
GVLAGVI]cRELAGV) 
ACG BDI F 


1.6 Comparison and Inquiry 


The functions depth and find provide means for inquiry of nested arrays, while 
the match function provides a mechanism for their comparison. 


1.6.1 Depth 


Depth, the monadic function associated with the = symbol, has already been 
encountered informally as the number of line crossings in the DISPLAY diagram 
required to reach the deepest part of an array. More formally the depth of an 
array is defined recursively as one more than the depth of its deepest item, and 
the depth of a scalar is zero. A simple array is defined as an array with the 
property that all its items are scalars, and hence it follows that the depth of a 
simple array is one. 


1.6.2 Match 


Match is the dyadic function associated with = symbol. Its result is always a 
simple Boolean scalar which is 1 only if its arguments are equal in all respects, 
ie. value, type, shape and depth. Here are some examples of similar objects 
which fail to match: 
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arguments differ only in 


2 3:3 2 value 
о 
*"*zi10 type 
о 
(1 1ра)=1 1 104 rank 
о 
(,/1 2)2ec1 2 depth 
o 
‹(,/1 2121 2 rank and depth 
o 


and here is one which does match: 


6/1 22261 2 
4 


The match function differs from the scalar function equal which pervades struc- 
ture and does comparisons on simple scalar items. The match function by con- 
trast does a total comparison on all the attributes of its arguments, thus: 


(2 3)4=(2 3) 4 
* 


(2 3)8:(2 3) 4 


Ve'THE' 'САТ' 

УС2]=<'САТ' 
л 

VC21ze'CAT* 
1 


Match can thus often be used to shorten comparisons as in the following illus- 
tration : 


Illustration : Test for ай items in a vector the same 
V=10V 

is an alternative to 
A/V210V ог  VA.-10V 


1.6.3 Find 


The membership function e tests whether a set of items is contained within 
another set by reporting the presence or absence of each item of the left argu- 
ment in the right, e.g. 


2 4 7e16 
110 
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To determine if an entire array is present in another array requires the dyadic 
function find (£) which looks for occurrences of the entire array left argument in 
the array right argument. The result is a binary array whose shape is that of the 
right argument with 1s indicating the beginning of occurrences of the left argu- 
ment. 


Mustration : Find all occurrences of one string within another 


"САТ'є'ВАТТҮ CATS SCATTER DUCATS' 
9000001000001 000000001000 


Mlustration : D: Multiple Blanks 
vis 
NO ONE IS AT HOME 


(~t '£V15)/V1S 
NO ONE IS AT HOME 


The next illustration shows how a matrix can be used as a left argument of e: 
eS 


illustration : Pattern Matching 


Search for the 2 x 2 identity matrix in a pattern of bits: 


M16 
01010011 
10110011 
00001111 
10101110 
01011100 
11110110 
01000001 
11011101 

PAT 
10 
0 1 

PATEM16 
01000000 
00010000 
00000000 
10100000 
00000000 
00000010 
00000000 
00000000 
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Exercises 1e 


1. Are the following scalars simple? If not what is their depth? 
a. (10)0(3 4 5) b. (10)0(3 4 5)(6 7) 


2. a. Write an expression to delete leading, trailing, and multiple blanks simul- 
taneously from a simple character vector. 


b. Write an expression using without to remove any all-blank rows from a 
(possibly nested) matrix M. 


3. Given the following collating sequences: 


С51+' ABCDEFabcdef" 
CS2+' AaBbCcDdEeFf* 
С53+2' ABCDEF' 'abcdef' 


and the following matrix: 


M17 
CAB 
DAD 
BED 
Bed 
bed 
BAD 
ACE 
bad 
ace 
dad 


determine the results of the following expressions: 
a. M17(CS14M17:] b. M17[CS24M17:] c. M17(CS34M17;] 


4. a. Use dyadic grade-up to write a function which puts the rows of a character 
matrix in alphabetical order. Distinguish two cases: 


(i) all upper case letters come before any lower case letter; 
(ii) all a/s in any case come before any b's and so on. 


b. Extend your expression to remove duplicate rows. 
5. Predict the result of * ' eC where C is a character matrix. 


6. a. Generate the matrix of shape R whose top leftmost submatrix of shape L 
consists of 1s and the remainder is 05. 


b. Generalize this to the case where the window starts in row W and column C. 
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7. How wouid you find where dense points are located in a three dimensional bit 
array A where “dense” means there is a two by two by two cube of all 1%, eg, if 
A13 is 


22200 
20220 
20022 
20200 


әэзззо 
озозз 
2000-2 


then the first plane of the result is 


оз-оо 
ооо-о 


8. a. Write a function REPL which replaces each blank іп a character array with 
the character ^^, Test that your function works with arguments of any rank 
(including 0). 


b. What changes would you make to create the function Rept which replaces 
every 0 in a simple (i.e. non-nested) numeric array with the three characters 
"М/А' 7 
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Summary of Functions used in Chapter 1 


Section 1.1 

PROTO prototype 

Exercises 1a 

DIS enhanced form of DISPLAY 

QUAD solution of quadratic equations 
Exercises 1b 

MONTH calendar for month 

START DAY auxiliary function for calendar 
Exercises 1d 

ORDINAL constructs ordinal numbers 
Section 1.4.2 

CHANGE exchanges items in nested vector 
Section 1.5 

UPRANK increases rank of array to at least two 
MATRIFY makes scalar or vector into matrix 
Section 1.5.2 

SORTC sorts character matrix 

TUP tied upward rank 

TDOWN tied downward rank 

SCH schoolmaster’s rank 


Exercises 1a 
REPL replaces items in character array 


2 
Operators 


All programming languages contain a set of fundamental instructions to trans- 
form data which are collectively referred to as operations. In APL2 operations 
are subdivided into two categories, functions and operators. Data transforma- 
tion occurs directly through functions or indirectly through operators. The fol- 
lowing figure illustrates the relationship of functions and operators. 


APL ere 


Functions Operators 
(ambi-valent) (monadic/dyadic) 


(primitive/defined) woe? 
ma TUS 


arguments operands 
(data) (functions/data) 


| 


J 


to produce 


|: 


а result a function 
(derived function) 


The role of operators is to modify functions before they are applied to data. 
Primitive operators are discussed in this chapter, and user-defined operators are 
introduced in Chapter 5. There are four symbols which are used to construct 
the primitive operators in APL2, namely / X . " , and there are a total of 
eight essentially distinct operators which are given in the table below in which P 
and Q represent functions and v represents a scalar or vector. 
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Reduce 
Replicate 
Scan 

Expand 
Outer Product 
Inner Product 
Monadic Each 
Dyadic Each 


2.1 The Each Operator 


The each operator is intimately connected with nested arrays. It allows func- 
tions to be applied item by item to their arguments which is what happens in 
any case with scalar functions, і.е. functions like +, + and e. Each allows its 
function operands to be applied one level down in the structure of the array. 
Just as a function acts on data to produce further data called a result, so an 
operator acts on operands to produce a function called a derived function. 


2.1.1 Pervasiveness 


A pervasive function is one which penetrates the structure of its arguments 
and is applied to the simple scalars within it. All the scalar functions are perva- 
sive, e.g. 


DISPLAY V21 


| 


| 1 
112451 1 pm га 1! 
| 0—1 | 16 71 18 9 101 1 | 
1 | nd — || 
I e — | 
L, 


DISPLAY 10*V21 


| 


1 
1 
pb 
pM 


re 1 
St c pe———————A 4 
112 14 151 | e—a ra |! 
M ———À3À 116 171 118 19 200 | | 

1 
1 


The each operator causes its function operand to penetrate one level of struc- 
ture, and so all each-derived functions are pervasive through one level. 
Repeated applications of each are necessary to penetrate further levels of struc- 
ture: 
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V22«'ABCD' (*EFG' 'HIJKL') 
DISPLAY 3pV22 


Sa eS Pues] 
| p—À re! 1АВСр 
| [EFG] |HIJKL| | L——— 
а р. неа) 1 
L 


] | 
| ТАВС| 1 py гау рә | | 
| L | |ЕЕС! |HIJKL| JEFG! | | 
1 t LII) LLL Lol Fg 
[i a) 1 
L 


r 1 
S с 1 г 11 
II ea m r3 г | | ea ге | | 
| | JAAA! 1888} ICCC] IDDD| | | IEFGI JHIZI | | 
14 М LI Lr ш ым pp uU-3j; 
I be — le | 
te —__ 


There is a formal analogy between the identity 
5 ++ cs 


for simple scalars and the identity 
(F R) +> FOR 


which defines a pervasive function F, in the sense that after removing R and the 
parentheses there is a one-to-one correspondence between the symbol sets (S,c) 
on the one hand and (F,") on the other. 

The each operator takes on its real significance when applied to non-pervasive 
functions such as : and o as the following examples show: 


11234 
4$ 4X4 1254 PESA 


$'APL' ‘IS* 'GREAT' 
GREAT IS APL 

Q"'APL' 'IS' 'GREAT* 
LPA SI TAERG 


Each is permitted in selective assignments, e.g. 
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(4#°V12)42 3 6 
vi2 
2 з 1415 6 17 


1Позітайоп : Multi-path selection (scatter picking) 


12412013014 15)) (16 17) 
(2 2 1)(3 2)27cV12 
14 17 


Illustration : Frequency Distributions 


Section 1.2.6 illustrated how to use partition to group like items. This technique 
can be developed to obtain a frequency distribution of a vector of integers: 
Ve2 7457543772 


pg VeVeV[AV] 
2.1 2 2-48 


illustration : Mid-points in Euclidean geometry 


Suppose 
(A B C D)e(O 0001 605 4) (8 0) 
represent the co-ordinates of four Euclidean points and the function MIDPT is 


COJ  Z«MIDPT R 
[13 Ze.Sx*/R 


The mid-points of the sides of the quadrilateral ABCD are: 
MIDPT^(A B)(B C)(C D)(D A) 


2.1.2 Scalar Extension 


Scalar extension applies to the primitive scalar functions which means that if 
one of the arguments of a scalar dyadic function is a scalar, it is used as many 
times as necessary in order to apply the function once for each item in the other 
array argument. Thus the scalar 10 in the expression 10x15 is replicated five 
times to achieve the item by item multiplication. By enclosing one argument 
Scalar extension of non-simple arguments becomes possible, e.g. 
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V21«(2 4 5)(C6 7)(8 9 100) 
DISPLAY (c1 3 5)+2 4 


тогот pe. 
13 571 157 91 | 


These expressions can be represented by the following diagrams in which each 
rectangle or square represents a scalar: 


1 


35 2 

4 

1 24 
3 


5 


Pervasiveness of scalar functions means that each is not required to qualify + in 
the above expressions. 
Derived functions resulting from reduction are not pervasive, e.g. 


4/01 3902 4) 


is equivalent to 1 3 + 2 4, thatis з 7, whereas 
47704 3002 4) 


is the result of applying +/ to each of 1 3 and 2 4, namely 4 6. In general if F 
is a scalar function the following are true: 


F/V ee VOI] F V(21 Г... 


Б/у +» (CF/VE11Y(CF/VE2DD. ... 
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Exercises 2a 


1, Given 


V23«C* ABC* )((13) (2 3p'ABCD')) 
V24*Cc* ABC' ) (C13) (2 3p*ABCD')) 


what are the DISPLAYed values of: 


а. pV23 d. pv24 
b. e7vV23 t. p7V2u 
с. p^7V23 f p'7v258 


2. Evaluate the following: 


а. */(34 5) 67 8 d. */7(345)678 
b. +/(3 4 5)(6 7 8) e */7"(3 4 5)(6 7 8) 
с. */7355678 


3. Given that V is a lower case name vector, e.g. "dick" ‘anne’, replace the 
first item in each name with its corresponding capital letter? 


4. The expression (N*/V)4N gives the N-period moving average of a vector V. 
Adapt this to obtain the weighted moving average of v given a vector of weights 
w which sum to 1, e.g. given weights .2 .4 .4, the weighted moving average of 
28563 1is56 60 4.6 28. 


5. Given the vector 
ү25+'АВС' (13)(15) ('THIS' 'IS' 'A' 'TEST') 
identify the following rearrangements of v25 from the options given below. 


v1 
ABC 
123 
12345 


THIS IS A TEST 


v2 
A 1 1 THIS 
B 2 2 Is 
c 3 3 A 
fad TEST 
5 
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ABC 
A11 
B22 
cas 

оч 
05 
ABC 1 

A 1 

B 2 

С> + 

1. vi 
2. v2 
3. уз 
4. va 
5. vs 
6. v6 


v3 
t. 123 4 
ун 
THIS 
Is 
A 
TEST 
vs 
23 12345 THIS 
IS 
A 
TEST 
v6 
1 THIS 
2 IS 
3 A 
4 TEST 
5 


g 


5 


инан 
и 


2[1]У25 
»[10)7V25 
,С10]""<У25 
»(10277V25 
»[11"V25 
„101925 


2"y25 


dung 
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2.1.3 Each with non-pervasive Functions 


The effect of applying each to the function shape is discussed in some detail, fol- 
lowing which its application to index of and grade-up are described in illus- 
trations. 


With 2 5 as left argument and 3 4 as right argument the result of 2 503 4 
is 
34343 
43434 


APL2 however allows us to “scalarize” either or both arguments by enclosure, 
thereby increasing the possible interpretations of “reshape” for given left and 
right arguments by using the derived function p". Scalarizing 2 5 can be pic- 
tured structurally as 


25 3 


4 


іе. (2 5о3)(2 5p4) which is given in APL2 by 


(c2 5)o73 4 
33333 44444 
33333 44444 


Enclosure is thus a device allowing scalar extension in the first-generation 
APL fashion, viz: 


[s] 131 
Us| +] 


and is therefore an appropriate way to solve the programming problem “Con- 
struct two 2 x 5 matrices one made up of 3s and the other of 4s.” 
Scalarizing the 3 4 is pictured analogously as 
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5 


ie. (2р3 4) (5р3 4) and is rendered by 


2 5p"c3 4 
34 34343 


Next the items may be applied pairwise: 


which is equivalent to (203) (54) and is given by 


2 5573 4 
33 44444 


Illustration : Each with index of 


Obtaining the letter indices of two words using the same alphabet means that 
the alphabet must be scalarized: 


BED 


AXE 


so enclose left: 


(e'ABCDE')i^'BED' "AXE' 
254 165 


To obtain the letter indices of a word using two different alphabets it is the 
word which must be scalarized, so enclose right: 
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ABCDE AXE 


XYZ 


'ABCDE' 'XYZ'i"c'AXE" 
165 414 


Illustration : Each with grade 
Two examples are given to deal with multiple words and multipie alphabets. 


One alphabet, two words: 


АВС САТ 


(c'ABC')4"*CAT' ‘CAB’ 
213 231 


One word, two alphabets: 


ABC CAB 


CBA 


*АВС' 'CBA'A"c'CAB* 
231 132 
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Exercises 2b 


l.If We'ABC' 'DEFG* what are 


а. 2 3p"W d. (=2 Зәри 
b. 2 3p"cW €. (c2 3)p^cW 
€. 2 3pc7W f 2 3p""w 

2; Y«'HIGH' *AND' 'DRY' and 


ALF«'ABCDEFGHIJKLMNOPQRSTUVWXYZ' what are 
а. ALFA»Y b. AALFá-Y с. A"CCALE)A"Y 


3. An experiment consists of rolling a die and counting the number of throws 
necessary to observe the first 6. Simulate the result of repeating the experiment 
three times. 


4. This exercise is about a titling function PRT3D for rank three arrays and pro- 
vides in its first line a practical demonstration of partial enclosure. Suppose 


A+100x12 

Be10x13 

Cea 

рА21+А•.+В•.+С 
234 


Titling consists of two parts per dimension, viz. a descriptor and a vector of 
individual headings. For example, for the array D the planes could be labelled 


AAA- 100 , AAA= 200 


where the descriptor is AAA= and the headings are 100 and 200. The function 
PRT3D takes as a left argument a six item vector V comprising 
descriptor/headings for planes, rows and columns respectively. 


со] Z«L PRT3D R;PLA;ROW;COL 
C1) Zec(2 3]A 

C2] Ze' *,[11°* *,[21°27 
[32 PLA*L(1],"22L 

[4] ROWe'N* ,LE3], 42L 

[5]  COL*LLS],62L 

[6] Zet cROW), ~(cCOL),[13°Z 
[71 Z«PLA,[1.52Z 

ca] 2+,.01022 
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TITLES+*AAA=* А 'BBB-' B 'CCC=' C 


TITLES PRT3D A21 


AAA- 100 
\ cece 1 2 3 4 
BBB= 
10 111 112 113 114 
20 121 122 123 124 
30 131 132 133 134 
AAA- 200 


BBB= 
10 211 212 213 214 
20 221 222 223 224 
30 231 232 233 234 
Problems: 


a. Study the function PRT3D and attach a short comment to each line. 


b. Fill in the following table for the value of the result variable z following 
execution of the lines indicated: 


z ° о 


C1) 
t21 
(61 
(71 
(81 


с. In line PRT3D£37 why is the first item indexed (LC12) but the second item 
picked (231)? 


d. Suppose all the headings are to be character vectors, e.g. 


PLAI PLA2 
ROW1 ROW2 ROW3 
COL1 COL2 COL3 COL4 


What changes are needed in (i) TITLES? (ii) PRT3D? 
5. The Pascal Triangle of size N consists of the non-zero entries in the outer 


product (iN) *. !* uN. Write functions PASCAL and CENTER to achieve the fol- 
lowing displayed versions: 
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PASCAL 8 


5 1 

15 20 15 6 1 
2135 35 21 7 1 
28 56 70 56 28 8 1 


CENTER PASCAL 8 


@vanscwn= 
° 
o 


1331 
14641 
15 10 10 5 1 
1 6 15 20 15 6 1 
17 21 35 35 217 1 
1 8 28 56 70 56 28 8 1 
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2.1.4 Index with Each 


The basic structure for the index function is 
TOR 


where R is a data array and I a set of selection indices. Compared with bracket 
indexing the index function has the advantage of requiring no semicolons. This 
allows a defined operation to select items via indexing from an array of arbi- 
trary rank. The length of the left argument must match the rank of the right, 
that is 


(pt) ++ ррЕ 


The left argument of index may be an array of depth two or less. This permits 
multiple indices along each of the dimensions of R. Thus for a rank 2 array R 


(1 23 4) 08 


is equivalent to RC1 233 4J. In words this expression selects all the items 
from R which lie in rows one and two, and also in columns three and four. In 
conjunction with the each operator, the index function permits scatter indexing 
which is the process of selecting items at will from an array. With scatter 
indexing the sets of indices are regarded as separate and independent. For 
example to select just the item in the first row and second column and the item 
in the third row and fourth column, the same left argument is used as in the 
previous example but it is necessary to make the index function the operand of 
each with a scalarized right argument thus: 


(1 2)(3 4) "<В 


Pictorially this can be shown: 


12 


m 


which is equivalent in bracket indexing to (RE1;21) (RE3:47) . 

On the other hand to find the item in row 1 and column 2 of several matrices 
the index left argument must be scalarized in conjunction with the application of 
each. Pictorially the situation is 
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5 


and the appropriate APL2 expression is: 

1 DOR 5 
which is equivalent to (ВС1;21)0571;21). A depth-two index, e.g. 

(e(1 23 4))07R S 
is equivalent to: 

(REA 233 4JD(S[1 233 4J) 
Now go one stage deeper. 

1 3]^c'ABC* 

means form a two-letter word from the first and third letters of the alphabet 
"ABC'. To form two words, say a one-letter word and a two-letter word, define 


[0] Z«L SEL R 
[11 Z*LD^cR 


and again scalarize the alphabet but this time as right argument to the derived 
function SEL”, e.g. 


1 АВС 


13 


(101 3))SEL^c'ABC* 
A AC 


To form two one-letter words requires an explicit use of ravel on account of 
the fact that enclosure of simple scalars does not increase depth. 


„71 3 SEL'ABC' 
AC 


Axis specification may be applied to the index function, and the resulting con- 
struct 


LOCIIR 


is called index with axis. Here is an example: 
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DISPLAY M11 


a a | 
Y re ! 
Г ICHARS/ 11 2 3 4| | 
p андык er | 
| r3 1 
| «ABI 16 | 
| ICDI I 
1 — | 
p— 


DISPLAY 2 2 10[1]^cM!1 


l | 
lors firs hdi ea eee ТИ 
| | *ABI 16 | i +ABI 16 | 1 [CHARS] 1123 41 | | 
| | ICD) 1 1 ICDI I1 bed he |! 
ушы „ушы | bere | 
| le— ———— I 

Г 


The axis qualifier сап be thought of as an operator whose derived function is 
0011. 
For ZL OR the following identity holds 
pZ ++ »,/p"L 


and for ZeLOLIJR, pZ is the shape of R with the Ith item replaced by 2,/p^L. 


2.2 Extensions to the Slash Operator 


A full discussion of how reduction, scan and inner and outer product have been 
refined to deal with nested arrays is given in Chapter 5. However two straight- 
forward extensions of reduction merit immediate attention. 


2.2.1 Replicate 


In APL2 the slash operator may take as its left operand either a rank one or 
zero data array, or any function producing such a result. With data V as the 
operand, the derived function V/ is called replicate. This enhances what was 
previously called compression by allowing the data operand to consist of a 
simple scalar or vector of integers. When the operand is a vector of just zeros 
and ones it may still be called compression as in: 

1 0 1/'ABC' 
AC 
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With non-negative integers the vector operand acts as a mask on the data argu- 
ment, and the integer determines the number of times the matching data item is 
replicated. Thus: 


3 0 2/'ABC* 
AAACC 


Negative integers in the left argument result in the indicated number of fill items 
(see Section 1.3.2) being inserted in the designated position, e.g: 


1723 0 2/14 
10022244 


DISPLAY О 72 2 0 3/(*A'5) 'A* 7 'B' 
me 
„Ж элее, opt 
ГТ 011 OL AABBBI 
[Ж ке, ш = доме ы 1 
a | 


The relationship between the left operand L and the right argument R is either: 


l. L is a non-negative scalar in which case it applies to all the items of R, or 

2. the number of non-negative items of L must match the shape vector item of 
R corresponding to the dimension in which replication is to occur. Formally 
if L/CIJR is valid then the following identity holds: 


(+/71#xL) +» IspR 


Mlustration : The conjunction IF 


Throughout the remainder of this book the function: 


[0] 2+1 IF R 
C1] Z+R/L 


will be used so that where there are branches in functions 
+L1 IF condition 


mirrors the English words “branch to L1 if ...” . 


MMustration : Multiple copies of matrix rows 


Obtain one copy of the second row and two copies of the fifth row of a matrix. 


М21+5 3p'ANDBOYCANDADEAT" 
отоо 2/(1]M21 
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It should be emphasized that the slash in replicate is a monadic operator 
symbol and so a vector V to its left is an operand and the combination v/ is a 
derived function, This has a practical consequence which is illustrated by the 
following sequence: 


1 0 1/*ABC* 
AC 

1 O 1/'ABC* 'DEF' "СНІ! 
ABC GHI 

17 О 1/^*'ABC* *DEF* 'GHI' 
AC DF GI 


(10 1)(1 1 0) (0 1 1)/^'ABC* 'DEF' 'GHI" 
DOMAIN ERROR 

(10 0)(110(01 0 

^ ^ 


ABC' 'DEF' 'GHI' 


The DOMAIN ERROR occurs because the operator / is evaluated before the oper- 
ator each and the left operand of / must be simple. The intention was presum- 
ably to achieve 


(1 0 1/'АВС')(1 1 O/'DEF')(O 1 1/'GHI') 
using each. However in order to apply each simple vector to the corresponding 


component of the right argument, the operand has to be made into an argument 
by creating a defined function, e.g.: 

Col Z*L COMPRESS R 

C1) Z*L/R 


€1 0 1)0(1 1 00(0 1 1)COMPRESS"'ABC' 'DEF*' 'GHI* 
AC DE HI 


In the special case however where the left operand L contains just one simple 
item the derived function L/ is evaluated first and so each can be applied to it 
to give e.g. 
ADOD 
12 123 


1 0 2/7(13)(3*$13) 
133 466 


When reduction is applied to non-scalar functions such as p and , the inter- 
mediate results in general possess structure and so must be enclosed to obtain 
the correct rank. For example 


p/2 3 


has the value 23, that is 3 3, but rank reduction demands that the final result 
іѕ єз з. Similarly 


3/2 3 
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results in c2 3. Thus both p/ and ,/ increase depth as the cost of reducing 
rank. Similar considerations apply to scan and expand. 


MIustration : Avoiding Blanks in List Lengths 


(1005 can sometimes be deceptive on account of their “invisibility” in output, 
for example 


B"€2 2p14)(3)(4 5 6 7) 
2 ч 


One way of overcoming this by turning scalars into one-item vectors is: 


e"1/"C2 2р1ц) (3) (а 5 6 7) 
22:-31: 8 


2.2.2 Dyadic Reduction 


The derived function reduction has a dyadic form called n-wise reduction 
S F/[I] R. 5, which must be a scalar integer, defines a “window” of consec- 
utive items to which reduction applies. The window moves along axis I one 
position at a time until all items of R have been covered. For example, a vector 
of consecutive pairs of items is given by: 


2,/18 
12 23 34 


The expression (14) , / *c14 produces a vector of vectors containing the 1, 2, 3 
and 4 tuples while 5, / 14 defines the prototype of 14. 

If the left argument L of n-wise reduction applied to a vector is a negative 
integer the items within the window are reversed before reduction is applied, so 
that € -L) ,/V is equivalent to ФІ, /ov. 


Illustration : Reversing scans 


+\у can be reversed by 72 reduction, that is 
V = 72-0, +\У 

is true for all numeric vectors V. The analogous formula for reversing х\ is 
V = 72:/0,xNV 


which is true for all numeric vectors V which do not contain a zero. In the 
binary domain =\ and #\ are reversed using the identities 


М s ~2=/1,=\V and V = 722/0, 23У 


A fuller account of scans can be found in Section 5.5.3. 
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Integers greater than |1«pV in the left argument of n-wise reduction result in a 
DOMAIN ERROR. The left argument may be zero, e.g. 


0,/14 


is a vector of five «10s. This example demonstrates the consistency of APL2 in 
dealing with edge conditions by fulfilling the identity 


(5+р5 F/V) +» (1*pV) 


Note: 0,/V may give a DOMAIN ERROR on some APL2 implementations. 


Miustration : Partitioning a Record into Fields 


Suppose a record RC read from a file is 40 characters in length and contains 
four fields of lengths 10, 15, 8, and 7. The following expression uses n-wise 
reduction to split RC into four fields: 


FW«10 15 8 7 
(FW/1ipFW)cRC 


Exercises 2c 


l. Create a function Compress which is a modification of the function COM- 
PRESS in Section 2.2.1 and which accepts an axis specification as part of an 
argument, ¢.g.: 


M M1 
ABC POR 
DEF STU 
GHI VWX 
(1 0 1)1 Compress M 
ABC 
GHI 
(є(1 0 122) Compress"M M1 
AC PR 
DF SU 
GI VX 


2. What are the values of 


а. 2-/10 52 126 b -2-/10 5 2126 
с. 2р/2 3 4 а. 725/23 4? 


3. a. State in words the result of the expression ((2xeV)50 ^12/V. (Consider 
as а test case Ve(5 'A') (13) 'B' 23). 


2. Operators n 


b. Write an expression which will replace each item in a vector V with its own 
prototype. (Hint - Use the COMPRESS function in Section 2.2.1). 


4. How many scans other than «X, x\, =\ and #\ can you reverse using ~2 
n-wise reduction in the style of Section 2.2.2? 


5. If V is a simple vector and F is a primitive scalar dyadic function what does 
the following expression define : 


F/"(ipvit"ey ? 


6. a. Write a recursive function DTB to delete trailing blanks (but no others) 
from a character vector. 


b. How else could this be could this be achieved in APL2? 


c. How would you use DTB to remove trailing blanks from every word in a 
vector of words VW? 


7. a. For a simple numeric vector V write an expression for the product of all 
consecutive pair-wise sums of items, e.g. if V is 15 the result is 3x5x7x9 = 
945. 


b. Describe the string 
є3 1 чр" 'АВС' 


in terms of just one primitive function or operator. 


8. Write a function FIND which behaves like e (see Section 1.6.3) except that it 
returns a 1 in the position corresponding to every matched character, e.g. 


"САТ' FIND 'BATTY CATS SCATTER DUCATS' 
0000001110001110000007110 


9. In the third illustration of Section 1.6.3 how would you amend the expression 
to find all occurrences of the pattern 
PAT 


1X 
x1 


where X stands for “don’t care,” that is the bit concerned may be either a 0 or a 
32 
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Summary of Functions used in Chapter 2 


Section 2.1.1 
MIDPT 


Exercis: 
PRT3D 
PASCAL 
CENTER 


Section 2.1.4 
SEL 


Sectlon 2.2.1 
IF 
COMPRESS 


Exercises 2c 
DTB 
FIND 


mid-points in Euclidean geometry 


titles three dimensional matrix 
Pascal's triangle 
centers rows of character matrix 


multiple scatter indexing 


conditional branching 
functional form of compress operator 


deletes trailing blanks 
enhancement of primitive function find 
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3 
Elementary Data Structuring 


The objective of this chapter is to demonstrate the effectiveness of APL2 in 
dealing with relatively straightforward commercial and financial programming 
situations based on real applications. There are two main sections each of which 
is given in the form of an extended illustration with narrative. The final exer- 
cises try to show how rapidly a reasonably substantial application can be built 
up from scratch. 


3.1 Example 1. Product Stocks 


This example is about stocks of five components X801 to X805 which are 
bought from three countries, JAPAN, TAIWAN and HONGKONG. The rele- 
vant stocks for each component are given below (JAPAN does not deal with 
X804 or X805 and HONGKONG does not deal with X805 or X802): 


JAPAN«aS 75 15 
TAIWAN*35 75 15 45 95 
HONGKONG«35 О 55 15 


With such a data organization a variety of questions can be asked, e.g. what is 
the total number of JAPAN components? 


+/JAPAN 
135 


Each allows all countries to be processed simultaneously: 


+/~ JAPAN TAIWAN HONGKONG 
135 265 105 


The total stock of components is 


+/ЄЈАРАМ TAIWAN HONGKONG 
505 


or if 
STOCKS*JAPAN TAIWAN HONGKONG 
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then 
STOCKS 
45 75 15 35 75 15 45 95 35 0 55 15 
and 
*/"STOCKS 
135 265 105 
and 
+/€STOCKS 
505 


To find the total stocks by components two options are available. Either country 
vector is padded out with zeros so that the component items are in matching 
positions: 


+/54 STOCKS 
115 150 8S 60 95 


or э$ are used to create a matrix within which the padding takes place automat- 
ically and then sum down the columns: 


+f#2STOCKS 
11S 150 85 60 95 


Now enter the costs of the various components ... 
COSTS«(39 19 29)(35 15 29 15 45)(25 15 19 12.5) 


Suppose X802 for JAPAN was in error. The X802 cost component for JAPAN 
is set to the correct value of 15 by: 


(1 22COSTS)«415 
COSTS 
39 15 29 35 15 29 15 45 25 15 19 12.5 


The total cost of inventory by country is: 


COSTS+. x” STOCKS 
3315 7735 2107.5 


and the total cost of inventory is: 


+/eCOSTSxSTOCKS 
13157.5 


By establishing the names of the countries as a variable ..: 
CNTRIES«'JAPAN' ‘TAIWAN’ 'HONGKONG* 
.. the cost of inventory for each country can be displayed as 


CNTRIES, 'COSTS*.x"STOCKS 
JAPAN 3315 TAIWAN 7735 HONGKONG 2107.5 


Suppose all prices are to be marked up by 80% : 
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COSTSx1.8 
70.2 27 52.2 63 27 52.2 27 B1 45 27 35.2 22.5 


Each entry may have different markups: 


PRICES*COSTSx1.6 1.7 1.8 

PRICES 
62.4 24 46.4 59.5 25.5 49.3 25.5 76.5 45 27 34.2 22.5 
The resulting net markups for each country/component combination are: 


NETMU«STOCKSxPRICES-COSTS 
NETMU 
1053 675 261 857.5 787.5 304,5 472.5 2992.5 700 0 836 150 


~ and the net markup for the entire stock is: 


+/eNETMU 
9089.5 


The average percent markup is: 


L.S*100x C*/ eNETMU) &*/eCOSTSxSTOCKS 
69 


+ and the biggest net markup in each country is given by: 


T/"NETMU 
1053 2992.5 836 


By establishing the component names as CNOS 
CNOS«'X801' 'X802' 'X803' 'XBO4* 'XB0S* 


the maxima may be stated by component name: 


CNOS(NETMU1 "Г /"NETMUJ 
X801 X805 X803 


Instead of viewing STOCKS as a vector of vectors: 


STOCKS 
45 75 15 35 75 15 45 95 35 О 55 15 


it may be viewed in tabular form: 


»STOCKS 
45 75 15 0 О 
35 75 15 45 95 
35 0 55 15 0 


Or... 


2[1JSTOCKS 
45 35 35 
75 75 0 
15 15 55 
0 85 15 
095 0 


Note that missing fields are automatically filled with zeros. 
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The tabular representation of STOCKS may be prefaced by country labels: 


CNTRIES,>STOCKS 
JAPAN 45 75 15 О 0 
TAIWAN 35 75 15 4S 95 
HONGKONG 35 0 S5 15 0 


... and column headings may be added: 
(*. ',CNOS),L1]* ',CTICNTRIES, 2STOCKS 


X801 X802 X803 X804 X805 


JAPAN 45 75 15 о о 
TAIWAN 35 75 15 45 25 
HONGKONG 35 o 55 15 о 


So far all the titles have been added in interactive mode. It could be embedded 
in a function such as 


VZ«L TOPS R 
£11 Zet’ E), [11*. *,C1IRV 


CNOS TOPS CNTRIES,2STOCKS 


XB801 X802 X803 X804 X805 


JAPAN "s 75 15 о o 
TAIWAN 35 75 15 45 95 
HONGKONG 35 o 55 15 o 


Suppose the component names are too long to make the table look nice. One 
possibility would be to list the names vertically which leads to the following 
alternative presentation : 


(2[1]CNOS)TOPS CNTRIES.»2STOCKS 


soar 
Noox 
шох 
гоох 
лоем 


JAPAN 45 75 15 0 0 
TAIWAN 3$ 75 15 45 95 
HONGKONG 35 0 55 15 0 


Or perhaps there should be more spaces in the original report ... 
(6 OSCNOS)TOPS CNTRIES,2(c6 0)8“STOCKS 
X801 X802 X803 X804 X805 
JAPAN 4s 75 15 


TAIWAN 35 75 15 45 95 
HONGKONG 35 о 55 15 
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Because s is used this version shows blanks for items which are not present. 


Summary reports are obtained by: 


'TOTAL INVENTORY',+/eSTOCKS 
TOTAL INVENTORY 505 


€(3CNTRIES),*/^STOCKS 
JAPAN 135 
TAIWAN 265 
HONGKONG 105 


(3CNOS) , */2C11STOCKS 
X801 115 


To view all this information collectively use: 


A*COCNOS) , */2[ 1]STOCKS. 

B*(SCNTRIES), «/23STOCKS 

C*'TOTAL INVENTORY',*/eSTOCKS 

ABC 
X801 115 JAPAN 135 TOTAL INVENTORY 505 
X802 150 TAIWAN 265 
X803 85 HONGKONG 105 


x804 60 
X805 95 
+» OF vertically: 
»[10JA B C 
X801 115 
X802 150 
X803 85 
X808 60 
X805 95 


JAPAN 135 
TAIWAN 265 
HONGKONG 105 


TOTAL INVENTORY 505 


Finally for a full spreadsheet type of report: 
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HEAD«CNOS,c'TOTS"* 

BODY*CNTRIES, (2STOCKS) , */2STOCKS 
FEET«e(c'TOTALS'),(*/2[1]8TOCKS) , */eSTOCKS 
HEAD TOPS BODY,[1]FEET 


X801 X802 X803 X804 XBOS TOTS 


JAPAN 45 75 15 o О 135 
TAIWAN $5 75 15 45 95 265 
HONGKONG 35 o 55 15 о 105 
TOTALS 115 150 85 60 95 505 


pHEAD TOPS BODY,[1J]FEET 
67 


Typically this would be embodied in a function that allowed the report to be 
run repeatedly with only a change in STOCKS. 


CO]  Z«HR REPORT R;HEAD CNTRIES FEET 

[1] яна: Two item vector of row and column titles 
[2] (HEAD CNTRIES)+HR 

[31 HEAD«(' ') HEAD, c* TOTS* 

[42 BODY+CNIRIES, (>R), +/>R 

[51 FEET«(c' TOTALS* ) ,(4/2[ 1]R) , */eR 

C6] Z«HEAD TOPS BODY,.[1JFEET 


The above report is then produced by 
(CNOS CNTRIES)REPORT STOCKS 


Of course a good spreadsheet reporting system could have done as much up to 
this point, however with APL2 this is only a beginning. APL2 doesn't just 
format reports - it is a powerful general-purpose language which as well as 
doing the simple sums above could equally well have performed complex statis- 
tical functions tailored to the user's special needs. 


Exercises 3a 


1. For the example above find the average selling prices for each of the five 
components for two different definitions of *average" namely 


a. a simple average of the selling prices in countries which hold stocks of the 
component; 
b. an average weighted by quantities in stock. 


2. Order the components by decreasing profitability within each country. First 
Obtain the answer as indices, then translate these into component names. 
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3. A Cash Register system 
Many cash registers not only print out the cost of each item but also the name 

of the item. In order to do this assume that the system has a STOCK database. 
Suppose each entry in this database consists of (inventory number) (product 
name) (unit amount)(cost per unit). For example: 

SCREWS«211 'THREADIES' 1000 1.98 

SPANNERS«312 'FLATONES' 1 1.09 

PLUGS«654 'LOTSAVOLTS' 2 1.55 

STOCK*SCREWS SPANNERS PLUGS 


Define a function RECEIPT which will accept a vector of inventory numbers 
and the name of the stock database, and produce a matrix listing of the product 
names, unit amounts and costs per unit that match the inventory numbers. 
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3.2 Example 2. Optimizing Rental Charges 


This is an example of a financial application using the ideas of probability and 
discounted cash flow. A business offers both lease and outright purchase 
options on its products, and requires to determine “multipliers” where a multi- 
plier is defined as 


outright purchase price 
monthly rental charge 


The customer’s decision to buy or rent is determined by two factors, namely 
his perception of the lifetime of the product and his view of the discounted 
present value of future rental payments. These can be combined in a discounted 
cash flow calculation 


COJ  Z«L PCENTFOR R 
C1] Zer/*C018,01xL12) * 41 12xR 


which results in the total number of monthly rentals discounted at L% which 
will be paid over a period of R years. This is equivalent to the maximum 
number of monthly rentals which the rational customer would be prepared to 
pay for outright purchase. For example with cash discounted at 7%, the equiv- 
alent number of monthly rentals paid over four years at present values is given 
by 
237 PCENTFOR 4 
41.76 


For a given product at a given moment in time the perception of discount rate 
and lifetime varies over a range of existing and prospective customers, and for 
modelling purposes it is assumed that both can be described in terms of esti- 
mated frequency distributions. The structure of customer lifetime perceptions 
will also vary for different products according to their rate of depreciation, e.g. 
television sets wear out gradually, whereas software becomes obsolete in a more 
sudden fashion. 

On the financial side, discounted rates for the value of future money varies for 
different customers even at the same moment in time. 

Suppose that the vectors DRATE and LIFEX describe possible discount rates 
and lifetime expectancies, and that the vectors DLIST and LDIST represent the 
proportions of customers holding these beliefs. 


DRATE«7 9 11 13 
LIFEX¢4 5 6 


DDIST+.2 .4 .3 .1 
LDÍST«.25 .5 .25 


ie. 20% of customers discount future money at 7%, 40% at 9% and so on, 
while 25* estimate product lifetime as four years, etc. 
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The joint distribution of the discount rate DRATE and the life expectancies 
LIFEX is the outer product 


28DRATE*.PCENTFOR LIFEX 
41.76 50.50 58.65 
40.18 48,17 55.48 
38.69 45.99 52.54 
37.28 43.95 49,82 


and the matching joint distribution of expectancies is the outer product 
35DDIST*.xLDIST 

+050 .100 .050 

+100 .200 .100 

+075 .150 .075 

+025 .050 .025 


Suppose now that the supplier fixes the multiplier at 50 say. If all customers 
are assumed to behave rationally what proportion will opt for purchase? Call 
the two tables above MTAB and PTAB standing for multipliers table and pro- 
portions table respectively and define a function CUSPRO: 


MTAB*«DRATE*.PCENTFOR LIFEX 
PTAB+DDIST+.xLDIST 


[0] Z«L CUSPRO R;MTAB;PTAB 

C1] aL: a2 item vector - multipliers table and proportions table 
[2] aR: a multiplier 

[3] ^2: %əopt to purchase 

[4] (MTAB PTAB)«L 

[S] Z«*/(«,MTAB) /, PTAB 


The above question for a multiplier of 50 is then answered by 


(MTAB PTAB) CUSPRO 50 
0.325 


Now extend this to a range of multipliers. 


СЄМТАВ PTAB) CUSPRO" 40 45 50 
0.9 0.7 0.325 


What if the distribution of customer lifetime perceptions varies according to 
whether the customer is a new or an existing renter? To accommodate this 
adjust LIFEX to include smaller lifetimes and LDIST to be a two-item vector 
where the first item reflects the distribution of a new customer and the second 
item the distribution of an existing renter. 

Lifexei6 
Ldist«(0 O O .25 .5 .25)(.1 .2 .3 .2 .2 ©) 


The two outer products require adjustment, in particular the one which multi- 
plies the distributions since what is needed is two separate tables corresponding 
to each of the two discrete distribution items of Laist: 
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Mtab+DRATE+.PCENTFOR Lifex 
Ptabe(cDDIST)*.x"Ldist 


Since Ptab is now a vector comprising two items, each of them a table, it is the 
derived function COMPRESS" (see Section 2.2.1) which has to be applied to each 
of them, and similarly for ," and «/". This requires that CUSPRO be rewritten 
as 


[O] Z«L Cuspro R;Mtab;Ptab 
[1] (Mtab Ptab)+L 
[21 Z*+/"(cR<,Mtab) COMPRESS", "Ptab 


so that its result is now a two-item vector with each item corresponding to one 
of the customer classes, new or existing: 


(Mtab Ptab)Cuspro 50 
0.325 0.04 


To investigate a range of multipliers apply each as before: 


(eMtab Ptab)Cuspro"40 45 50 
0.9 0.32 0.7 0.18 20.325 0.04 


or if the result is required as a table: 
ə(cMtab Ptab)Cuspro^40 45 50 


0.9 0.32 
0.7 0.18 
0.325 0.04 


To recap so far, the above table contains the proportions of customers opting 
for purchase. The (implicit) row headers are the multipliers set by the supplier, 
and the columns relate to new and existing customers respectively. 

Given this information together with a forecast of the numbers of new and 
existing customers, the supplier may now calculate his expected revenues for dif- 
ferent multipliers. Suppose that he has done this and has produced a five-item 
forecast revenue vector REV: 


REV«3300 4000 5300 6400 7000 


(It is true that the forecast of numbers of new and existing customers is likely to 
depend on the multiplier but this complexity is ignored for the time being.) 

The supplier as well as his customers has a perception concerning the dis- 
counted value of money. How does this allow the supplier to maximize his 
revenue? The following function returns net present value: 
rol Z+L NPV R 
[1] aL: discount rate as a percentage 


[2] aR: vector of amounts 
[3] ZeRtéC1*.01xL)*1pR*,R 


The value of a single sum discounted for different rates for one year is given 
by 


(c10 12)NPV 100 
90.909 89.286 
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and the outer product 


10 12*.NPV 100 200 300 
90.909 181.82 272.73 


gives the value of several sums discounted for one year at different rates. 
For a given revenue estimate vector REV the supplier can now discount the 
first item over one year, the second over two years and so on to give: 


10 NPV REV 
3000 3305.8 3982 4371.3 4346,4 


as the projected revenue discounted at 10%. 
Applying each to the revenue vector allows this calculation to be performed 
for several discount rates, c.g. 


*/710 12 NPV^cREV 
19005 17947 


returns the total revenues with discounting at 10% and 12% respectively. Now 
at last the supplier is in a position to examine simultaneously his returns under a 
variety of assumptions and to make what he believes to be an optimum decision 
in setting the multiplier. 


Exercises 3b 


1. Given MTAB and PTAB as defined above, estimate the value of the multiplier 
at which 50% of customers opt for purchase? (Hint: order the items in ,PTAB 
according to the corresponding values in ,MTAB.) 


2. Obtain a table of discount rates 10% and 12% versus several revenue 
projections, e.g. 
REV«3300 4000 5300 6400 7000 (as in the text above) 


ЋЕҮ1+5р3300 
REV2«3300x(1.05)x0,14 


3. The staff of a department starts a savings bank, and records the individual 
transactions of members in a numeric nested vector BANK which is structured 
hierarchically as follows: 
BANK 
- MEMBER RECORD 
- MONTH 
- TRANSACTIONS 


BANK is à vector of MEMBER RECORDS. A MEMBER RECORD is in turn a vector 
of MONTHS of positive or negative TRANSACTIONS where a deposit is indicated 
by a positive number and a withdrawal by a negative number. At the trans- 
action level a deposit is indicated by a positive number, and a withdrawal by a 
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negative number. A MONTH is a vector of transactions, a MEMBER RECORD is à 
vector of months, and BANK is a vector of member records. 

A typical instance of BANK after one such bank had been operating for two 
months with four members is 


BANK«((20 ^5 10 ~5)(4 72 7))((710 25)(16 3)) 
((5 79 72)(6 73 73))(25(100) 


Give APL2 expressions which answer the following for this or any similarly 
structured bank: 


a. How many members has the bank? 


b. For each member over the entire period, what are 
(1) his net deposits? 
(ii) his total deposits? 
(iii) his total withdrawals? 


c. What is each member's sequence of monthly balances over the period? 
d. What are the bank's net deposits by month over the period? 
e. What is the net amount on deposit with the bank at the end of the period? 


4. Last Trades. 
Consider the following portion of data from the stock exchange: 


MMM 3:25 95 

€ 3:27 36.5 
GM 3131 43 

МММ 3:33 42,75 
ІВМ 3:45 102.25 
ІВМ 3:57 102.125 
GM 4102 43,125 
GM 4:04 43.375 
IBM 4:04 102.25 
T 4105 36.75 
IBM 41:12 102.5 


Assume it is structured as a nested three column matrix STP in which each 
row represents a trade on the stock exchange, the first column is the trading 
symbol, the second the time of the trade and the third the trading price. 
Problems: 


a. Create a function LAST, TRADE to find the last trade of each stock. 


b. Modify the function to another function STK_LAST_TRADE which finds the 
last trade of a given stock. 
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c. Enhance the program to return a message if the stock is not traded. 


d. Modify LAST_TRADE to a function TIM_LAST_TRADE which returns the last 
trade of each stock after a given time. 
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Summary of Functions used in Chapter 3 


Section 3.1 

REPORT formatted report 

Exercises 3a 

RECEIPT builds cash register receipt 

Section 3.2 

PCENTFOR discounted cash flow calculation 
CUSPRO customer proportion opting to purchase 
NPV net present value 

Exercises 3b 

LAST_TRADE last trade of each stock 


STK_LAST_TRADE last trade of given stock 
TIM_LAST_TRADE last trade after given time 


4 
Using Functions and Arrays 


Chapters 1 and 2 discussed functions and operators in relative isolation. Chap- 
ters 4 and 5 are about the interactions of various functions and operators and 
thus provide a study in greater depth of the features of APL2 which are most 
intimately connected with nested arrays and the associated operations of enclose, 
disclose and each. Although the basic concepts are few a new perspective is 
required in order to acquire fluency in application. There is an analogy to the 
mental leap needed to move from thinking in two dimensional geometry to 
thinking in three dimensions. Data objects in first-generation APL Possess data 
and structure where structure is synonymous with shape. In APL2 structure is 
given the additional aspect of depth, thereby releasing the user from the shackles 
of rectangular data structure and thus making it possible to model data struc- 
tures of almost indefinite complexity. The price of the flexibility afforded by the 
combination of data, depth and shape is that the simultaneous control of all 
three is a skill which has to be consciously acquired through practice in order to 
exploit the great programming versatility which nested arrays afford. 


4.1 Cross-sections, Picking and Indexing 


The distinction between items on the one hand and cells on the other, that is 
objects containing items, is crucial to understanding nested arrays. In general, 
indexing creates cross-sections of arrays, and for a two-item vector V this can be 
pictured 
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МС121 vt23 


whereas pick penetrates arrays, thereby reducing depth. 


Thus if V is a vector, then contrary to what one might intuitively suppose, УС17 
is not the first item of у, but rather it contains the first item of V. Enclosure 
thus provides a container for data and indexing selects from a rectangular array 
of containers. 

Disclose on the other hand removes a container, allowing functions to be per- 
formed on its contents. The following vector identity reinforces this point: 


VCI] = cI2V 
(cf. post- and pre-brackets in Section 1.3.3). For example suppose 
V*€'GO' 'TO' *BED* 


22V is the two-item vector *TO* whereas PCV], or equivalently 20V, is c22V, 
that is the enclose of *ТО'. Thus 


vt21zc'TO' 
1 

(22V) gc' TO* 
о 
Also 

V(3]=¢'BED* 
111 


(33V) zc*' BED' 
100010 001 


The last expression answers the nine separate questions 


*В'='Е' 
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A visually similar relationship exists between the argument and result of an 
each-derived function. This may be expressed: 


If F is a monadic function and Z«F"R where R is a vector then for all valid 1 
21] ++ cF2RII] 


The sequence “enclose-function-disclose” is of such frequent occurrence that the 
above statement will be called the “each rule.” Since disclose is the inverse of 
enclose the above equivalence can be seen as a manifestation of the formula 
GFG” which pervades mathematics, and linear algebra in particular. 2 and R 
have the same shape, that is 


ez +> eR 
and the following identities also hold 


4F IOR - F^IUR 
F"R1 R2 T (F R1)(F R2) 


For dyadic F with 
ZeL F^R 

the corresponding form of the each rule is 

201] ++ c(LCIDF>RCI] 
or equivalently 

IDZ ++ c(IDL)FSIDR 
Here the disclose step is applied simultaneously to both arguments. The analo- 
gous identities are 


^10,2 ++ (+*®1й,)Е+1й,Н 
L1 L2 F"R1 R2 ++ (L1 F R1)(L2 F R2) 


Contrast this with the function pick for which the corresponding rules are 
I»Z +» F ISR 


I»Z ++ (ISL)F ISR 


The vector rules for L F” R are readily extendible to arrays of higher rank. 
Here are the considerations involved in applying the each rule to evaluate e.g. 


V4te((2 2)(3 10)p7CCxX4)* ABC! ) 


Each argument of о” is a two-item vector, and so the each rule says that in 
order to obtain the leading item of the result vector 1» must be applied to both 
arguments to obtain 2 2 on the left and (14) on the right. Now р is applied 
and the result enclosed and placed in its proper cell in the result. For the second 
item do the same with 22 to give a result 
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DISPLAY V41 


4.1.1 Each and Scalar Functions 


Another way to view each is in terms of scalar functions where a scalar function 
is defined as one which is applied independently to each item in the case of a 
monadic function, or between corresponding items of the left and right argu- 
ments in the dyadic case. Thus for example + is a scalar function and 


123+456 


can be viewed as shorthand for 
(1+4) (245) (3+6) 


Regardless of whether or not F is scalar F” behaves like a scalar function one 
level down in the data structure of its arguments. 

Scalar function behavior also means that scalar extension applies. The two 
basic forms of scalar extension are illustrated by 


Example Scalar extension 
SFA 2+345 22 2+3 4 5 
AFS 123 + 10 1 2 3410 10 10 


The following frequently occurring patterns arise on account of the fact that F” 
is a scalar function: 


SF" AB +» (S F ACS F В) 
ABF'"S +» (A F S)(BF 5) 
АВЕ” СРО +» (АЕ C)(B F D) 


Another way to evaluate the vector v in the previous example is to observe that 
((2 2)(3 10) р” (014) SABC) 

is equivalent to 
(2 2014) (3 1р'АВС') 


When F is itself a scalar function each has no role to play since F already 
penetrates all levels of structure down to the simple items. Thus 1 2+3 4 is 
identical to 1 2+73 4, whereas the following are not identical: 
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DISPLAY 1 2,3 4 
pe 31 
112341 
uw 
DISPLAY 1 2,73 4 
oS 
irre! 
11131 12 41 
poo uU 
ме — ————À 
Scalar extension often comes about through the application of enclose, for 
example: 


‹<З 1) р” ((14) '*ABC') 


is equivalent to 
(3 1914) (3 1p'ABC') 


Because the derived function F~ behaves like a scalar function one level down, 
three patterns involving the explicit use of enclose tend to arise in expressions, 
namely: 


The first two reflect the scalar-function-array and the array-function-scalar pat- 
terns of scalar extension. The third one typically creates a vector for which a 
function such as grade-up or +/ is applied to each item. 

The depth function further emphasizes the difference between pick and 
indexing in that =¥£1] is two, and z12V is one. Yet another way to look at 
this is to say that V can be viewed in either of two ways: 


(a) as the join of two depth two objects, or 
(b) as the enclosure of two depth one objects. 


A consequence of this is that care must be taken to distinguish “the first item of 
an array” from “the first cell of an array.” The former implies depth-reduction, 
the latter not. 
Vector notation provides a mechanism for enclosure without explicit use of the 
enclose function as in 
"ABC' 'XYZ' 
213 213 


"CAT' 'AXE" 


Here LC11 is the scalar ¢*ABC', RC1) is the scalar c*CAT'*, so the dyadic 
form of the each rule predicts that ZL 17 is c' ABC'A'CAT*. 
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4.2 Some Illustrations using Nested Arrays 


Sometimes algorithms carry over without change from the non-nested case, e.g. 
(CDOCiD)zi8DOC)/DOC removes duplicate words from a “document” рос 
which is a vector of character vector “words.” 


Illustration : Word Search 


Test for occurrences of a word in a document. 
DOC«'THE ONLY THING TO FEAR IS FEAR ITSELF." 


DC«(* '£DOC)cDOC ^ partition string into words 
(c* FEAR*) EDC ^ is the word present? 

T 
(c*FEAR*)z"DC a а mask for its occurrences 


000001010 


Шизігабоп : Spell Check 


Find the words in TEXT which are not in DICT. Thus for spell checking, TEXT 
is the text as a vector of words, and DICT is the dictionary, also as a vector of 
words. 


DICT«'RECEIPT' 'THE' 'THEIR' 'THERE' 'WAS' 
TEXT«'THIER RECIEPT WAS THERE' 
TEXT«(* '£TEXT)cTEXT 
TEXT-DICT 
THIER RECIEPT 


Illustration : Enlarging a List of Words 


Let LIST be an existing vector of words, for example 
LISTe(* '#LIST)cLIST+'BOOK READ THE TO TOO" 
and 
TEXT+'TO’ 'READ' 'THE' 'TWO' 'RED' 'BOOKS' 'TOO' 


Following 
LIST¢LIST, TEXT~LIST 


LIST is updated with the words of TEXT not previously in LIST. 
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lilustration : Vector Merge 


Merge two vectors in the sense of taking one item alternately from each. For 
example: 


V42¢*PETER ' "PAUL * 'MARY ' 
V43** AND ' ‘AND * 'BROWN* 
€V42,7 N43 


PETER AND PAUL AND MARY BROWN 
————————————————————— 


Miustratjon : Random Sentence Building 


Given a vector of subjects, a vector of verbs and a vector of nouns, the following 
function will generate random sentences. 


[O]  Z«SENTENCE SVN 

L1] sSN: a three item vector of vectors 

C2] aZ: а random sentence consisting of subject, verb and noun 
(3]  Z«(?p"SVN)2^SVN 


For example, with 


SUBJECTS+'RAY' 'NORMAN' 'JO* 'JEAN* 'DAVID' 
VERBS*'EATS' 'LIKES* 'DISLIKES' "ENJOYS* 
NOUNS-'FISH' 'OATMEAL' 'APPLES' 'OLIVES' 'SPINACH' 


SENTENCE SUBJECTS VERBS NOUNS 


might produce 
JO LIKES OLIVES 


^ common problem when using each in APL2 programming is ensuring that 
corresponding encloses and discloses are matched correctly. Programming with 
nested arrays rapidly leads to the discovery that a tiny difference in code can 
make a large difference in result, and consequently it is important to recognize 
differences between similar but subtly different expressions. The following exer- 
cises emphasize this point, and the solutions illustrate the extra complexity 
which arises when enclosure and each are used together. 


Exercises 4a 


1. Suppose v is the vector 4 5 6. Consider the following set of eight some- 
what similar expressions all of which are variations on the theme 


2 30V 
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Some are meaningful, some are not. Evaluate those which are and predict the 
nature of the error in the case of those which are not. 


а. 2 Зреу е. (c2 3)pVv 
b. 2 3p^cV f. (e2 3)pcV 
С. 2 3p"V B. (62 3)e"V 
d. 2 Зре"у h. (c2 3)p^cV? 


A detailed discussion of this exercise is given in Appendix A. 


2. Here are some similar variations on the theme *АВ*,','СрЕ'. What is the 
result of executing the following: 


а. 'AB',c'CDE' €. (c'AB'),c'CDE* 
b. f. (e'AB'),^"c'CDE* 
e g. ‘ABT, 
d. h. "АВ', 


3. a. How would you sort a vector of codes each of which is a mixture of 
numerics and alphabetics, e.g. A9, B12, B9, b9, B10, .. ? Distinguish two 
cases: 


(i) all upper case letters come before any lower case letter; 
(ii) all a’s in any case come before any b's and so on. 


4. Use DAF to construct the "alphabet" 'AaBbCc ... '. (see Section 1.5.2 for 
a description of DAF.) 


5. If V1 is a vector of words, write an expression which returns a 1 to indicate 
the occurrence of amy of the words in V1 as consecutive characters in a char- 
acter vector V2. 


6. Write an expression which returns the index of every occurrence of 'АВ*С' in 
a character string V where 

a. * represents any single character; 

b. * represents any character string of arbitrary length including zero, which 
does not contain a further 'С'. 


7. Word Analysis 
Suppose you have a variable representing textual data as a simple character 
vector, ( e.g. GETTYSBURG representing the Gettysburg address). 


a. How many words does it contain? 


b. How many distinct words does it contain (remember to remove punctu- 
ation and to change upper case letters to lower case at the start of sen- 
tences)? 
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с. How many occurrences are there of each of these distinct words, that is 
Obtain a concordance of the data with the words sorted in order of fre- 
quency of occurrence. 


8. What does the following expression do 
€t tv 


given that V is a vector of words? 


98 APL2 IN DEPTH 


4.2.1 Further Illustrations using Nested Arrays 


Illustration : Catenation of Matrices 


A frequent programming task to which APL2 brings a new way of thinking is 
that of adjoining two matrices of unequal dimensions, e.g. 


DISPLAY"LEFT RIGHT 


re. RT 
¥PIP| *DICK | 
ITOMI  IALBERTI 

——— 


IJO | 
L1 


Suppose LEFT and RIGHT are to be catenated along the first dimension. An 
APL2 style algorithm converts each matrix to a vector of rows, catenates them, 
and reconstitutes the result as a matrix. A function to do this is 


[O]  Z«L VCAT R п vertical catenation of matrices 
[13 Z«23,/c[21'L R 


LEFT VCAT RIGHT 


The two discloses in VCAT relate to two enclosures, one explicit, and the other 
implicit arising from ,/ which will be discussed in detail in Chapter 5. 

МСАТ as given above requires that both arguments are matrices. If the func- 
tion is to work with vectors or scalars, c(2] must be generalized to 


со] Z«PENCL К ^ descalarize and partial enclose 
[11 Zec(ppRIRe1/R 


(1/R makes R into a one-item vector if it is a scalar, otherwise does nothing - see 
Section 1.5.) Therefore rewrite VCAT as 


Col 2+1 Vcat R 
Ст] Z*«225,/PENCL"L R 


LEFT Vcat'3* 
PIP 
TOM 
Jo 
3 
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3 Vcat 4 
3 
4 
‘PIG’ Vcat' SHEEP’ 
PIG 
SHEEP 


illustration : Partial Enclosure 


If it is logical to think of a matrix as a vector of row vectors or as a vector of 
column vectors, then consider using ¢{2]M and c[12M respectively. For 
example to transform a matrix M with a single 1 in each row, e.g. 


0010 
1000 
0001 


into the column indices the ones by rows use 


‹<{21М)\71 
314 


which is arguably more expressive of intention than the regularly used idioms 
from first-generation APL 


Mt.xi71teM and 1++/A\M#1 


or even the APL2 idiom 
Mf.i1 


where £ is any dyadic function. This is discussed in detail in Section 5.5.6. 


Illustration : Find the co-ordinates of the 1s in a binary matrix 


Given 


the co-ordinate pairs of the 1s in Ma1 are 
UD 0,2) (2,4) (3,10 
One way to obtain these is to use T : 


[11 Z«ONES R 
C2) Z+e( 1]1« COR) T 1* C, FO/1x/oR 


of which a more elegant but less efficient form is: 
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[11 Z«Ones R 
[2]  Zeie(CepRO T^ 1e C, RO /i 5, R 
>ОМЕЅ M41 displays the co-ordinate pairs, one per row: 
ONES M41 
11 12 24 31 
If it is desired to retain the row structure in the solution each row of M should be 


thought of separately as a compression vector on 1^, so following the reasoning 
of Section 2.1 14 should be scalarized as indicated by the following diagram: 


and the function COMPRESS 
Col Z+L COMPRESS R 
C1) 2.1/8 

used to give 


DISPLAY CI*(c[2]M41)COMPRESS "c14 
pr———————31 


| rA orm orn 
144 21 181 121 a 
1 ш LJ ал 

Le — —————À 

Next each row number is joined with its own set of indices using the function 


1 12 


3 1 


which is achieved by the expression 
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DISPLAY(i3),""CI 


ге ———3À 
Loe ге or |! 
Vp p— рү ЧЇ рб зү ОА ee 
ГГТ 11 11 21 11 12 81 1 0 13 10 00 
ү L6 ш үзү ешр + 
| be 1 Le 1 Le — | 
ү 


Adding э”: 
27(13),"7CI 
11 24 31 
12 
gives what is perhaps a more satisfactory display, or more generally 
2" (48M), 77" CcC2]M)COMPRESS"c11« 0M 


To generalize this phrase, further account should be taken of the possibility of 
all-zero rows. Empty vectors must be eliminated from the result of COMPRESS" 
and matching row indices from the left argument of , "" which leads to 


CCv/M) /1*pM) ,7"CCCC2]M) COMPRESS" c11« pM) ~с10 


Mlustration : Binary matrix as partitions of column indices 


The first row of the matrix M in the previous illustration : 


partitions 14 into 3 4 corresponding to Os and 1 2 corresponding to 15, the 
second row partitions 14 into 1 2 3 and а, and the third row partitions 14 into 
2 3 чапа 1. The necessary masks can be described by 


and translated into indices by applying COMPRESS” with a further level of 
nesting in the left argument 
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BIN 
BIN 


DISPLAY(c[2]"(-M&à1)M4 1)COMPRESS" "cci4 


rt 1 
br Tt"! 
М ipee p ien „ЖИК оки ра ое d 
1 1 (3 4! 11231 12 3 51 1 1 13 21 151 11111 
Pp Oud LIC ee үлү ee | 
| Le I Le 11 
Le. 


Exercises 4b 


l. Assume DTB is defined as in Exercise 2c6 to delete trailing blanks from a 
character vector. 


a. Use this function to write another function DBTM which converts a character 
name matrix (i.e. one in which each row is a name, and the shorter names are 
padded on the right with blanks) into a vector of names, each with no trailing 
blanks. 


b. Write a function ZeL INDEX R for which R is a simple character string, L is 
a name matrix, i.e. a matrix each of whose rows is a name, possibly padded with 
blanks, and Z is the indices of all rows of the matrix which contain R, if neces- 
sary padded with blanks. 


2. a. Write an expression which makes a character matrix consisting entirely of 
digits and spaces into a numeric matrix possibly padded with zeros. 


b. Gieneralize your expression to deal with arrays of any dimension. 
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4.3 Distinctions between Similar Primitives 


APL2 has several alternatives for selecting items from a nested array. The 
group of functions 


first, take, pick, disclose and index 
are discussed together since they have both semantic and graphical affinities 
with each other. In the context of this discussion, index applies equally to 
“squad” indexing and to bracket indexing. 


4.3.1 First and Take/Drop 


A significant attribute of functions is their effect with regard to depth. First is 
depth-reducing, take and drop are not. 


DISPLAY Vec[1]2 3016 


[тар | pei 
F 
bot тар! 
| G | 
Le—— 
= TCV CAV CIV) 
212 


Thus + and 1+ offer a straightforward choice between penetration (i.e. depth- 
reduction) and cross-sectioning (cf. Section 4.1 Pick and Indexing). For example 
#18 is scalar 1, 1418 is vector 1. Further, ^ will do a ravel if necessary and is 
thus guaranteed not to give LENGTH ERRORS such as arise from, say 


142 2e14 
For all non-empty arrays A the following identity holds 
CAA) +» (CT)2 (TH CopAD pt) 4A 
where (opA)p1 should be considered as а path. The presence of the pick on the 
right hand side emphasizes the need to reduce depth by one in order to relate a 


first to a take. 
Take and drop are the subject of two identities: 


(pIta) +> |I 
(pI+A) ++ Of (pA)-I 
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where I is an index vector. These formalize the rank-preserving property of take 
and drop. 

Idioms involving first are more numerous than those involving take, for 
example 


А+2 5 2 3p160 


ФА a first item of a simple array 
1 

+Ф,А a last item of a simple array 
60 

ФрА a size of first dimension 
2 

+ФрА ^ Size of last dimension 
3 


Combining first and drop leads to some useful phrases, e.g. ^I«V selects the [th 
item in vector V regardless of the setting of O10. Hence 


s^condition«o ‘then clause’ ‘else clause’ 
implements if-then-else (see Section 5.6.2 for another way of doing so), or more 
generally 

atly CU ‘easel! 'case2' ... *casen* 
implements a case statement, for example 


COND2«1*COND1«1*CONDO«O 
*^CONDO«'O* '10* '20' 


о 

atCOND14+°O* "10° '20' 
10 

atCOND2+°0* '10* *20° 
20 


+” penetrates but does not remove the outer level of structure. Instead it 
removes the levels below the outer one so that the identity 


pt"A ++ pA 
holds, For example 
DISPLAY V+e(1]2 3p16 


The rank of each item of an array is given by: 
*7o07p^À 
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For example: 


M42«2 2p(2 2р'АВС'(2 2p'X'))6(1 3p5)(13) 
DISPLAY M42 


pt——————à 
+ pa—an 1 
П а 16 I 
1 | IABC| XXi | 1 
11 Oe IRI | П 
Eg | 1 
IIi p— re! | 
| Р [ABC] +XX| 1 1 
Iı — XXi | i 
1 — | ! 
| 0—1 ! 
1 reo | 
| #5 5 5] 11231 1 
1 м1 LL | 
о] 
+p" a "M42 

20 

24 


Another phrase involving + strips off one level of depth from within the outer- 
most layer: 


КАЈ 
for example 


Va4*((2 2р ' ABC')(2(3 4))(5 6)) 
DISPLAY V44 
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DISPLAY ,/,"V44 


(see Section 5.5.2 for a detailed description of ./.) 


DISPLAY *./."Va4 
pm 
1 ra 1 
IABCA2 13 415 61 
p ш [ 
AE — ———————À 
Press "Маа 
8 
Contrast this with e which strips ай levels of nesting: 


DISPLAY eV44 


астен 

ТАВСА 23 4 5 6 

а ————4 
pevay 

9 


4.3.2 First and Pick 


The depth of the right argument of dyadic > (pick) is reduced by the number of 
items in its left argument or path. 
Vec[122 3p16 


DISPLAY" (V) (2əV)(2 12V) 


(ree! 12051 2 
144 4] 12 51 13 611 bet 

| t4—] ш td | 
0—1 


=" (WV) 025ү) (2 12V) 
210 


The above rule extends to the case of an empty path, in which case the result is 
simply the right argument, that is 10 is the left identity of pick. 


GO0)2V 
14 25 36 


12V is equivalent to tv for any non-empty vector V. While both are depth- 
reducing, the former is valid only if v has at least one item, otherwise an INDEX 
ERROR occurs. First (+) by contrast never returns an INDEX ERROR. If there is 
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no first item, first supplies a fil item. In the first two examples below the fill 
item is a scalar, in the third example it is an empty vector. 


DISPLAY +0p2 305 


о 
DISPLAY +0p2 Зр'АВС' 
DISPLAY t010 

re 

10! 

ы! 


4.3.2.1 Type and Prototype 


The value of the fill item arising from applying + to an empty array depends on 
how the empty array was constructed in the first place. Although empty arrays 
are objects with structure but without data, they have to be created out of some 
data initially, and the originating data is reflected in the value of 4A. For 
example: 


A*3 4 0p(c209)(c3p9) 
B*3 4 Ор(<329) (2р9) 


tA 
оо 

^B 
000 


The above results are called the prototypes, which means literally the types of 
the firsts, of A and B. Only the leading item from which an array is created 
influences its prototype, e.g. the fact that the second item from which A above is 
created has shape 3 is not reflected in the prototype. 

The prototype of an empty array A is thus a non-empty array and its data 
does not reproduce the data which was used in constructing A in the first place, 
which cannot be recaptured by further processing. For example 


1 2 204A 
0000 
0000 


contains no reference to 9, although the type and structure of А are inherited by 
the prototype. 

It is often desirable to construct an array of identical structure to a general 
array A with О replacing numbers, blank replacing characters, and 10s 
remaining unchanged. This is achieved by enveloping A in a further level of 
nesting and then deliberately constructing an empty array OpcA whose proto- 
type has the desired property. The result of the expression +0о<А is called the 
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type of A. In passing note the approximate graphical similarity between the word 
“type” and the APL character string “+0оє.” Here is an example: 


V45«(137 'ABCDEF'(45 'G')) 
DISPLAY V45 
ч 
l m— 7 r—3! 
| 137 |ABCDEF| [45 GI | 
і Lo Wu 
ц 
DISPLAY +OpcV45 


Illustration : Distinguishing character, numeric, etc. 


Defining 


со] Z«TYPE R 
[1]  Z*^0pcR 


the expression 210 ' ‘eeTYPE A returns О for empty, 1 for character, 2 for 
numeric, 3 for mixed. 


—$— ——————————————————— 


The first of the ravel of the non-empty array TYPE A can now be defined as 
the prototype of A, thus extending the definition of prototype to non-empty 
arrays. 

Prototypes are most useful when dealing with objects which are uniform in 
structure, since in this case the structure of the leading item reflects the con- 
struction of all items. They are also used in situations where “proxy” data is 
needed by functions which either 


(1) enlarge structure (but not data) either at the extremities (take) or at an 
arbitrary point within the structure (expand and replicate); or 


(2) pad structure to rectangularity (disclose). 


The fill item is different in the two cases above, viz. in case (1) the prototype of 
the entire array is used, e.g. 


Vu6eCC1 2)3) (4 5 6207 8) 
DISPLAY 4*V46 


4. Using Functions and Arrays 109 


DISPLAY 1 О 1 1\V46 


г” 1 
L e—a r ! 
Dd p— ble 1 1% 5 61 [7 В| | 
111121311 ооро | Wd 0 | 
її: үр ы | ! 
П 0—1 0—4 І 
be J 


DISPLAY 1 ^1 1 1/V46 


| 
EI em lle !1i556l 17 81 | 
11412131 |100} 0| Weed w | 
Pt bpp шыш | 1 
| te— le~ ! 
n j 


In case (2) the prototypes of cross-sections of the array are used, that is +“Op"v: 


2V46 
12 3 00 
"8$ 6 
7 8 o 


IBM manuals have defined prototype as +0oc+, that is as ТҮРЕ first, 
however two of the characters in this phrase are redundant in that 


tOpctR ++ 400A 


Informaily e (enclose) replaces the depth that + (first) removes. Further if A is 
empty, or even if only +A is empty, then the prototype is +A. 
To summarize, prototype is ^0oA, reducing to +A if ^A is empty. 


4.3.3 Pick and Disclose 


Both disclose (2) and pick (+) reduce the depth of an array, however pick is 
selective as well. In selecting an item pick may penetrate several levels of struc- 
ture. Pick always returns the selected item as it was nested in the structure. Dis- 
close may result in padding with fill items. Disclose returns all of the original 
data but it is transformed into an object with one less level of depth. It changes 
the structure of the original object, but requires uniformity of rank one level 
down, that is all items of o"57A must be identical, subject to some flexibility on 
account of scalar extension. Thus the following is an error situation: 

A*3 2p16 

V+" ABC? 

VACV А 

2VA 
RANK ERROR 

2VA 

AA 
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If rank uniformity one level down does apply, the shape of 2A is the shape of A 
with [/p"A catenated to its right. Formally 


(p2A) +» (oA), ГОА 
When axis qualification is used with disclose used, it indicates where the nested 
shape values are to appear in the disclosed array. Here are some examples: 

e(1 2)(3 4 5) 


2 
p3(1 2)(3 4 5) a default axis for > is 2 
23 ^ 3 comes from inner structure to second 
position of new structure 
»(1 2)(3 4 5) 
120 
345 
p»t11(1 20(3 4 5) 
32 ^ 3 comes from inner structure to first 
position of new structure 
2C1]¢1 2)(3 а 5) 
13 
24 
05 
The next example demonstrates the effect of using a vector as an axis qualifier: 
At3 2p16 
Be2 4p10x18 
AB+A B 
PAB 
2 
p”AB 
32 24 
DAB«*2AB 
eDAB 
234 
p2C1 2]AB 
342 
рэС1 ЗЈАВ 
324 


When V is a vector of vectors >V is often useful for displaying V as a matrix, 
thereby make the relation between corresponding items clearer. 


Illustration : Converting vector of names to a matrix form 


While some functions such as grade-up require simple matrix arguments, names 
are often more easily entered as a vector of vectors, e.g. 


NAMEVV*'NORMAN' 'JEAN' 'JO' 'RAY' 


Disclose gets them into a matrix form: 
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MNAMES«2NAMEVV 
eMNAMES 

46 
MNAMES 

NORMAN 

JEAN 

Jo 

RAY 


4.3.4 First and Disclose 


Suppose 
А+с?2 2010 


In this instance >A and ^A have identical results but the routes by which they 
are reached are quite different. The effect of. disclose, >, is to restructure the 
entire nested object by bringing the shape vector 2 2 from the inner structure to 
the outer structure. 

By contrast first (+) does a depth-reducing selection which penetrates one level 
of depth and selects the first object it finds there, in the case of A the 2x2 matrix 
within the nested scalar. 

Both functions are inverse to enclose, that is ^cA and 2cA are both equiv- 
alent to A. Enclose however is not the inverse of either, i.e. in general neither 
=*А ПОГ c2A is equivalent to A. 


4.3.5 Summary of Relationship between above Functions 
It is useful to summarize the relationships between these functions both in the 
form of a table: 


Depth- ЕШ Structural/ 
reducing? Index-err? Selection? 


> Disclose x E STR 
^ Take N F SEL 
+ First Y F SEL 
ə Pick Y I SEL 
0 Index N I SEL 


and also in the form of a diagram in which a double line indicates that the two 
functions at its ends share two attributes from the table, a single line that they 
share just one. 


112 


DISCLOSE (э) TAKE (+) 
Г 


[_FIRST e] 


1—4 


| PICK (>) INDEX (0) | 
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Both the table and the diagram show how first has the the greatest overall 
affinity with the others in the set. Also although pick and disclose share a 
common symbol they have only one of the three attributes in common. 


Exercises 4c 


1. Given 
At2 3p16 Be3 C+'APL’ E*(cA),B,cC 


what are value, shape and depth for each of the following : 


a. ОоЕ f. +EC2] 

b. 40pE B. 2E[2) 

с. fOpcE h. *0pEC2] 
d. t0p71tE i >0pE[2] 
с. »0pg»E ? 


2. For any array A describe fully the differences between 
а. ^А b.14A c.12A Я. АС1Ј. е. 10А 


Which, if any, аге the same if 
(i) А+(1 2903 а) (ii) А+18 
3. Define De+(1 2)3'АВС'. 


a. What is (i) the type; (ii) the prototype of D ? 


b. What, if any, is the difference between the prototypes of D and oD ? 


c. What are (i) 54D (ii) S*^D (iii) 5+0D ? 
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d. What are (i) 2D (й) >"D (iii) >г12р? 


4. a, What is »'THIS' 'IS' 100? 


b. Obtain the matrix below using > 
° 
2 
2 


woo 


C. Transform  Va7«(*JACK' 10)(*PETER' 27) into 


JACK PETER 
10 27 


using only є э and axis qualification. 
5. If v is a non-empty vector, explain why the following two expressions which 


both extract the last item do not match: 
а. +фу b. Tiav 


6. If Mis 2 3p16 what is the difference between 
а. *&E12M b. 14C1]M с. sc[120M  d.*^7c[1]M ? 


7. If Mis a matrix, write the following expressions more briefly: 
а. 2 1ü^ceM b. (c2 1)0oM 


8. Make a name list (that is a vector of character vectors) of the names 
appearing below in ascending order of wealth: 


V46«('TRUMP* 8.1)( "GETTY" 7.4) 


9. If A is an array, what single primitive function is equivalent to 
(S T)2C(T*CooR) pI) tA ? 
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4.4 Empty Arrays and Fill Functions 


A language which admits empty arrays must address the problem of what each 
primitive function should do when presented with an empty array, that is an 
object with structure but no data. In such cases function execution in the ordi- 
nary sense of transforming data is not applicable and consequently each APL2 
interpreter must contain rules for providing the necessary padding characters. 
These rules are embodied in the so-called fill functions. Historically these have 
not been consistent across different APL2 interpreters. For scalar primitive 
functions F the result of F EA (EA = Empty Array) or EA1 F EA2 reflects a 
combination of prototype, shape and fill function subject to rank and length 
conformance. Here are some examples on [BM mainframe APL2: 


DISPLAY +0 2pci3 
9—1 
Ф p——3À r—4! 
11000! loool I 
jd ey 
1—1 
DISPLAY +0 2pc'ABC' 
p———————À 
Cee rt 
ооо ооо! I 
[Мек ua! 
1 


DISPLAY Т+Т++0 2ре'АВС' 


| 100 о! ооо 1 
Пос ee ү 


[oe ia) 


In APL2 the fill function of all scalar primitives with scalar arguments is a func- 
tion whose result is always zero even if the type of R is character. For non- 
simple arguments the fill function is applied to each item recursively until simple 
scalars are reached - this is consistent with the pervasive property of scalar 
primitive functions in preserving shape and depth in the absence of data. When 
one argument is scalar but non-empty and the other is empty, e.g. for 


2+0рсо О 
the fill function is applied to the prototype of the non-empty argument as one 


argument and the empty argument as the other, so that the result of the above 
expression is 
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DISPLAY 2+0pc0 0 


The monadic and dyadic @ functions are a special case since they are arith- 
metic but non-pervasive, and so what happens when each to them is applied is 
not dealt with by pervasion. Since F" is equivalent to defining a loop for F, it is 
desirable to maintain consistency of shape even when the loop is executed zero 
times, which is what happens when Е” is applied to an empty array. The fill 
functions in APL2 for monadic and dyadic @ are: 


co] Z«MFF R [oj Z«L DFF R 
t11 Z*QtR [1] Ze(CI s p4R) , 1«p4L) PRR 
For example: 
^8'0pc2 300 
оо 
оо 
оо 
B+?3 2010 
С+?З 35100 
BEC 


0.06595 ~0.02702 
70.05348 0.1279 
0.04424 70.03799 
DISPLAY (OpcB)H"OpcC 


і 
гт 
гт 
1g 

I 


Non-scalar primitive functions have their results defined at the structure phase 
and so no separate fill functions are required, e.g. the results of 


DISPLAY р<0 300 
m 
loi 
bat 
DISPLAY pc4 Sp'ABCDE' 
re 
10] 
Lad 
are not affected by the emptiness or otherwise of whatever is to the right of c 
nor by its type, and likewise 


'ABC'1cO 3560 
4 
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depends only on whether a match is found for the enclosed scalar, and not on 
whether or not it is empty. 


4.4.1 Identity Items and Identity Functions 
There is an important distinction between the concept of identity items of scalar 
dyadic functions which satisfy 


AF IDI ++ A (Right identity item) 
IDI FA + A (Left identity item) 


and identity functions which satisfy 


L F (IDF L) +>» L (Right identity function) 
(IDF R) FR ++ R (Left identity function) 


4.4.1.1 Identity Items 


A full set of identity items is given in the following table 


€ | ULT * @o t A v «€ S * 2 > 9* ^9 


о о 1 1 0 M-M 1 none 1 1 о 0 о о попе 
LR RIR R LLRLR R LIRLR L LIR R R R 


where L and R stand for left and right and m is the largest number in the 
machine. These items are obtainable as F/10. The reason is that 


(F/V) F (F/V1) +» F/V, V1 


is a fundamental property of pervasive functions and so setting V1 to 10 gives 
(F/V) F (Е/\0) ++ F/V 


4.4.4.2 identity and inverse Functions 
Fulfilling the left-identity-function identity above for a function such as р 
requires a data-dependent argument, viz. 

(pR)pR ++ R 


that is p is its own left identity function. Now take the function &. What left 
argument makes 


LAR ++ R ? 


The answer is 1p0R SO 1op is the identity function. A full list of identity func- 
tions is 
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т 
Р 


Identity function L/R Restriction 


eR 

CCT4 R2 ,0) oc CCT H4 9R) ,0) рв 
(7 1+pR)pO0 

(ТУРК) ро 

1peR 

10 

(роВ)ро 


15ррЕ 


1=ppL 
1SppL 


вг зовоо о 
mr et rt ps 


(itpR)*.514aR 


Identity functions should not be confused with inverse functions which are 
defined by 


LLIFLFR ++ R (Left inverse function) 
(L F R) ЕВ + L (Right inverse function) 


The only scalar dyadic functions which possess inverse functions are 


NC CES =z a 
Left + = А 
Right x ae 
Exercises 4d 


1. What are 


а. x/2 3 0p0 
b. x/2 О 3e0 
€. x/c2 О 350 ? 


What difference does it make if the rightmost 05 are replaced with 9s? 
2. What are 
а. ^(10)40pc2 350 


b. +0"0ре2 350 
С. *(c3 4)p"Opc2 3o0 ? 


3. What are 


à. р/2 3 OpO 
b. р/0р<2 350 
€. e/OpcVoO where V is any simple numeric vector ? 
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4. What is the value of F/0ec2 390 when F is: 


ae b» at ds e~ f, ? 


5. What are 

a. p^,/0pc2 9р0 

b. р,/Орє2 9 9р0 

€. рж, /00с2 9 9 900? 


What happens eventually as more 9s are added? 
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Summary of Functions used in Chapter 4 


Section 4.2 
SENTENCE 


Section 4.2.1 
VCAT 
PENCL 
ONES 


Exercises 4b 
DTBM 
INDEX 


Section 4.3.2.1 
TYPE 


builds a random sentence 


catenates matrices vertically 
descalarization with partial enclose 
obtains co-ordinates of 1s in a binary matrix 


deletes trailing blanks in each row of a matrix 
indices of rows in matrix containing given string 


type of an APL array 


5 
Using Operators 


5.1 The Role of Operators in APL2 


Although nested arrays are the most distinctive feature of APL2, operator 
extensions provide at least as great an advance. There are two aspects to oper- 
ator extension - first the provision of user-defined operators, and secondly the 
extension of existing operators to nested arrays and to user-defined functions 
and derived functions. These two features increase by a huge factor the expres- 
siveness of APL2 in describing programming ideas. 


In general if APL objects are the “nouns” of the language and functions the 
“verbs,” then operators are the “adverbs.” They direct kow to apply or 
combine functions in ways which are common across a range of functions. 
From the earliest days of APL the adverbial aspect of functions was achieved 
by “embroidering” the function symbols with other symbols such as / and .. 
For example, «/V describes how to add the elements of the vector V,ie. add 
"through" v, in the sense of inserting the function « into all the available Spaces 
(one less than the number of elements in V) and evaluating the resulting 
expression. The insertion is a structural action and the consequent evaluation a 
functional one. After defining "reduce" to describe the adverbial concept of 
“through,” it makes sense to talk about “multiply reduce,” “divide reduce,” 
and so on. 


5.1.2 User-defined Operators 


The mechanics of creating a defined operator are similar to those for defining a 
function. Four independent choices are made, viz: 
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its name 

the number of arguments 

the number of operands 

whether or not it has explicit result 


As a general principle a user-defined operator should be constructed when 
several functions are handled in the same way. A simple example is COM which 
reverses or “commutes” the role of the left and right arguments. 


01 Z«L(OP COMDR 
11 268 PL 


2 -COM 5 
3 


An operator has either one or two operands which are denoted here by P (left 
operand) and Q (right operand - if present). P COM is the derived function and 
L and R are its left and right arguments. The binding of the operator CoM with 
the function minus is stronger than that between the derived function and the 
two arguments, and so the above expression should be read in the three 
"chunks" which are suggested by the spaces. 

Tracing function execution is another situation in which different dyadic func- 
tions are handled in the same way. The operator in this case is called SEE. 


roi Z«L(P SEE)R 
[11 L 'f' R 'z' ZeL PR 


-SEE is the same as - except that an explicit message is issued for every minus 
execution. 


-SEE/14 
aftu 71 
2 471 3 
ТЕЗ = 72 
72 


Operators сап be be used in conjunction, e.g. 
-SEE COM/14 


Since -SEE is the same as minus except for messages it follows that -SEE COM 
is the same as -COM except for messages. The order of operators is important - 
in the above traces £ denotes - whereas in the next sequence f denotes -COM. 


-COM SEE/14 
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Illustration : Moving functions along an axis 


Reduction applied to the non-commutative functions subtract and divide 
produces alternating sums and products respectively. This is counter-intuitive 
when viewed with eyes conditioned by ordinary arithmetic in that -/6 2 3 
looks as though it means 6-2-3, i.e. 1 rather than 7. The latter is indeed a rea- 
sonable variant of subtraction - call it subtraction “along” a vector - and the 
following operator describes recursively the process for a general scalar dyadic 
function P, which could be either primitive or user-defined: 


COJ] Z+*(P ALONG)R 

[1] »L1 IF 1=р,К ^ branch if singleton or scalar 

[21 +0 Z«((P ALONG) 1«R)P^OR a apply P once at right hand end of R 
Їз] Li:Ze*R 


(-ALONG) 14 
78 

*GALONG)14 
24 


This operator can be further generalized by specifying an axis Q as a second 
operand. 


[0] Z«(P Along QR 

[1] +01 IF 1=90pR 

[2] +0 Z«((P Along Q)71«[QJROP 14[QJÓR 
(3) L1:Zet^(Q]R 


(-Along 2)2 3016 
7a 
77 
The result of either function ALONG or Along, unlike that of reduce, has in 
Beneral the same rank as its argument. 


The second program lines of the functions in the above illustration exhibit a 
technique which is widely used in the remainder of this book, particularly in 
Tecursive functions. It consists of using the characters +0 Ze... to compress 
assignment and branching into a single line. The effect of this is to make an 
intermediate nested object of depth one greater than the object of the assign- 
ment, and then force an implicit first for the branch. 
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Illustration : Table Bullding 


Another straightforward example of a simple operator is the outer product of a 
vector V with itself. 


CO] Z«(P TABLE)R 
C1] Z*R*.P R 


xTABLE 112 


is thus the ordinary school multiplication table. 


A common property of the operators ALONG, TABLE, and COM is that they 
can be applied across a set of functions. If an operator were relevant to only one 
function, it would be preferable to write a user-defined function. 

Of the operands P and Q, either or both may be functions or arrays, but 
usually at least one is a function. The derived function then takes arguments L 
and R. If Q and R are both arrays as in the case of the function ALONG then 
parentheses may be necessary to show where Q stops and R begins. 

А monadic function has only a right argument. A monadic operator on the 
other hand has only a deft operand, Non-ambiguity of syntax demands that 
operators follow the opposite rule to that for functions, that is they are executed 
from left to right. Thus in the expression 


-COM ALONG 1,14 
2 


the operator COM is executed before the operator ALONG. More specifically the 
derived function -COM is constructed and then passed as an operand to ALONG 
to obtain the derived function «-COM) ALONG 1. Applying this derived func- 
tion to the right argument, the successive execution steps are : 


1¢-COM)2 = 1 
1(-Con3 = 2 
2(-COM4 = 2 


giving 2 as the final answer. The above expression also raises the issue of where 
the right operand stops and the right argument begins, and under what condi- 
tions explicit parentheses are necessary. The precise rules for determining such 
matters are called the binding rules and they are discussed in the next Section. 
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5.2 Binding 


For expressions which contain only functions and variables the evaluation rule 
known as the “right-to-left evaluation” rule applies, viz: 


The rightmost function whose arguments are available is evaluated first. 


Including an operator in an expression requires further rules. The expression 
-COM ALONG 1,14 


discussed in the previous Section raised the issue of whether 1 is a right operand. 
to ALONG or the left argument to the function catenate. At first glance the 
comma appears to represent the catenation 1,14 . However 1 is not a left 
argument to catenate because it has a higher priority as right operand to the 
Operator ALONG. The 1 binds more strongly to the operator as an operand than 
it does as an argument to a function so that the expression is equivalent to 


(-COM ALONG 1) 14 


This example demonstrates that in addition to the right-to-left evaluation rule, a 
set of binding strengths between operators, functions and other syntactic symbols 
needs to be defined. Binding rules define how variables and symbols group for 
evaluation. For any three objects A B C the following binding table determines 
whether B associates with A or C, that is whether A B C means (А B) C orA 
(В C). 


Binding Strength Object Binds to- 
(Strongest) l. Bracket the item on its left 
2. Assignment the name on its left 
3. Operator its right operand 
4. Vector item the items on either side 
5. Operator its left operand 
6. Function its left argument 
7. Function its right argument 


(Weakest) 8. Assignment whatever is to the right 


As an example of how to use the table consider the problem of deciding whether 
the expression +.х/А means (*.x)/A Or *.(x/)R. The binding between . 
and x (right operand binding) is stronger than that between x and / (left 
operand binding) and so the inner product is evaluated before the reduction. 
The entire expression thus means (+.x)/A and mot +. (х/)А. The application 
of the binding rules to expressions containing two or more operators can be 
expressed more generally as 


Operators have long left scope and short right scope whereas functions have 
long right scope and short left scope. 


126 APL2 IN DEPTH 


Illustration : Implications of Binding 


a. Consider 


X*10 
5*X«2 
7 


The binding of X to + in the second line is stronger than that to +, otherwise the 
value of the result would have been 15. 


b. The expression 
2 ч 62] 
results in a RANK ERROR since the bracket binds more strongly to 6 than does 6 


to the vector 2 4. To achieve what is presumably the desired indexing the 
binding strengths must be overruled with parentheses: 


(2 4 6)(21 
c. Define 


[0] Z«(P RED QR 
[11 Z«*P/LQ]R 


*RED 2 3 2016 
a7 тл 


is equivalent to 


(+RED 2)3 2p16 
37°11 


since the binding of RED to its right operand 2 is stronger than the binding of 2 
as an item of the vector 2 3 2. 


Operators may include other operators in their definition, e.g. reduction from 
the left is given by 


[O] 2+(Р LRED QR 
[1] Z*P COM/LQJOR 


(-LRED 2)2 3016 
74 77 
LRED is similar to ALONG, but mimics reduction more closely than ALONG by 
reducing rank. Although functions derived from user-defined operators may be 
ambi-valent (see Section 5.3.2), operators themselves are not, so an attempt to 
use LRED monadically results in e.g.: 
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(-LRED)2 3916 

SYNTAX ERROR 
(-LRED)2 3916 
A ^ 


Illustration : Hexadecimal Arithmetic 
The operator HEX transforms arithmetic functions into their equivalents for per- 
forming hexadecimal arithmetic. 


to) Z*L(P HEX)R ^ Land R are character strings 
[13 Z«DTH(HTD L)P HTD R a representing hex numbers 


The functions DTH and HTD convert decimal to hex and hex to decimal respec- 
tively. 


[0] Z+*HTD R a Ris a hex character vector 
[1] Ze161714HSTRiR 


[0] vZ«DTH R a Ris a numeric array 
C12 Z«HSTRL1*CCL141601([ / ,R) 016) TR] 


Where HSTR is the character string '0123456789ABCDEF'. Here are some 
examples: 


' A1 HHEX* AF* 
Fo 

' AT! xHEX* &F* 
31AF 

*HEX/'F3' '8' '2' 
FD 

'12' 4HEX^'F3* '8* ^ ladded to X’F3’, 2 added to 8 
Fa А 


(c*12' ) eHEX^*F3* '8* a X'I2' added to both X'F3' and 8 
105 1A 


Comparison of the last two examples shows how enclose is necessary in order to 
have '12* interpreted as a single hex integer, with subsequent scalar expansion 
(see Section 2.1.2). This suggests that the operator HEX be extended to HEXE 
(standing for HEX each) thus: 


CO]  Z«L(P HEXE)R 
E13 Z«DTH^(HTD"L)P HTD^R 


"AI! '12'+НЕХЕ '#Е' 'ЕЗ' 
FO 105 

(<'12')+НЕХЕ 'F3* '8* 
105 1A 
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Illustration : An Operator for Padding Matrix Catenationz 


This illustration shows how variations on text-joining with regard to axis and 
justification can conveniently be brought together by defining an operator. The 
technique can be compared with VCAT given in Section 4.2.1. 

[COJ  Z«L(CP NEXT Q)R;TiU 

E13 (L R)*MATRIFY"L R a ensure both arguments are matrices 

[2] Z+Qx(pLI[peR т Zis used as a local variable ... 

t31 T*Z*CGoL)xUe-|Q т... to calculate left arguments for take ... 
c4] 0+2+0хрЕ п... prior to catenation 

C5] ZeC(T+L), CPIUtR 


[0]  Z«MATRIFY R 
[12 2607241 1,pRpR 


Neither operand of NEXT is a function, so effectively NEXT is a function with 
four arguments. The left operand P is the axis qualifier for catenation and the 
right operand Q is a code which determines in which direction (if any) to apply 
padding in order to make the smaller dimension match the larger. Its domain is 
71 © 1; 1 means pad + or +, ^1 means pad + or +, O means don't pad. A 
code of 0 in the Pth. item of Q can give rise to potential LENGTH ERRORS. A 
few examples should make the operation clear. 


DISPLAY"M51 M52 
Sa r3 
*BREAD| «MANI 


IFRUIT| | iCANI 
——— |EATI 
[mnm 


DISPLAY"(MS1(1 NEXT(O 1))M52) (M51(1 NEXT(O ~1))MS2) 


Lemma Г ояу | 
*BREAD| ¥+BREAD| 
IFRUITI |FRUITI 


IMAN | | MANI 
ICAN | | CANI 
\EAT | | EATI 


L3 чы 


DISPLAY^(M51(2 NEXT(1 ~1))M52) (M51(2 NEXT(~1 0))M52) 
qr—— Moda Led 
*BREAD MAN| + МАМІ 
IFRUIT САМ!  |BREADCAN| 


1 EAT|  |FRUITEATI 
ш. а 


DISPLAY^(M51(2 NEXT(1 0))М52) (M51(2 NEXT(^1 ~1))MS2) 


pae ein <<a 
*BREADMAN| + MANI 
IFRUITCAN] IBREAD САМІ 
1 EATI {FRUIT EATI 
b— ы — 
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Exercises 5a 


1. The expression 
T/ipT+((N-1)p1) €2</¥ 


in which V is a simple numeric vector and N a positive integer returns the indices 
in V of the starting points of all strictly increasing subsequences of length N, e.g. 
у2 34345227 
Ne2 
T/ipT*CUN-1) 010 £2«/V. 
12458 


Write an operator CONSEC which allows the determination of the equivalent 
information for 


a. strictly increasing sequences; 

b. strictly decreasing sequences; 

c. non-decreasing sequences; 

d. non-increasing sequences; 

€. sequences of equal values; 

f. sequences of values in which every item differs from its neighbor. 


2. a. Write an operator BASE which performs arithmetic functions P on scalar 
numeric integers which are to be interpreted as integers in base Q, e.g. 


16+BASE 7 23 
42 

1111:BASE 2 11 
101 


b. How would you extend this to process integer arrays, so that you could for 
example divide the two by two array 


1111 110 
10010 100001 


by 11 in base 2. 


3. Describe the difference between 


со] 2+1, ROOT R 
[11 ZeR*4L 


and 


[O] Z+(P ROOTOP)R 
[11 ZeRetP 


In what circumstance might it be desirable to use ROOTOP rather than ROOT? 
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4. With com and SEE as defined above, which if any of the following 
expressions are necessarily identical for a general numeric vector v? 


a. -SEE/V Б. -SEE COM/V c.-COM SEE/V 
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5.3 Matching Function Arguments 


5.3.1 Function Composition 


Composition means the successive application of two functions. For example 
consider 


V12«12(13Ctà. 15)) (16 17) 
The composition (pe) applied to У means apply e to V followed by p, and so is 
rendered by 


pevi2 
6 


The each of this composition is given by first applying e to each item of v: 


e°vi2 
12 13 14 15 16 17 


and then o^ to the result: 


p'e"v12 
5 X 


Similarly the each of the composition (+/є) is given by 


*/^&€7N12 
12 48 33 


The general rule for applying each to compositions of monadic functions is: 
(egi ++ РОО” 


For dyadic function compositions a left argument has to be allocated to one of 
the two component functions. Sometimes only one allocation of the left argu- 
ment is sensible. For example consider the composition АФ: 
‘ABC’ AO'CAT® 
231 
"ХҮ2'АФ'АХЕ' 
213 
2 3 1апі 2 1 з аге the grade-up vectors with the alphabets *ABC* and 
"хү2' respectively of the words * TAC* and 'ЕХА'. In this case the rule stated 
above may be applied, that is (4$) " is given by 
"ABC' 'XYZ'A"Q"'CAT* 'АХЕ' 
231 213 
and the left argument applies to the leftmost of the two functions in the compo- 
sition. 
Where the functions P and Q both have possible dyadic meanings, ambiguity 
can arise as to whether a left argument applies to P or Q. For example if the 


132 APL2 IN DEPTH 


composition e: is applied with left argument (13) and right argument of 2 the 
left argument can relate to either the e or the :, thus: 
(13)є12 
a3 9 
є‹їз)\2 
2 


In such cases composition must be defined explicitly via a defined operator. For 
example: 


[0]  Z«L(P COMP1 Q)R 
[1] Z«LPQR 


which in some APL systems is available as a primitive operator *. 
(P COMP1 9) " is equivalent to P”Q”, e.g. 


'ABC' 'XYZ'(ACOMP10)"'CAT* 'AXE' 
231 213 


Explicitly defining the operator draws attention to the alternative composition 
operator in which the left argument applies to the rightmost function: 


Co] Z«L(P COMP2 Q)R 
[1] Z«PLQR 


examples of which are: 


"ABC* "ХҮ2' (ФСОМР2А) `'САТ' 'AXE* 
$12.312 


1 2(ACOMP20)7(2 3 49(5 6 7) 
$3,223 1 


5.3.2 Ambi-valency 


All functions in APL2 are potentially ambi-valent and this is true also of 
derived functions. Consequently when writing an operator whose derived func- 
tions may be monadic or dyadic it is norma! to write it in two parts, one to deal 
with the monadic case and the other with the dyadic case. 

In Section 5.1.2 the operator SEE was defined to obtain traces for monadic 
processes. This can be made dyadic by 


col Z«L(P TRACE)R 


(11 *L1 IF OsDNC'L' a branch if dyadic 
(21 +0 O+'f' R '=' ZeP R ^ monadic 
[3] 11:1 'f' R '=' ZeL PR ^ dyadic 


On IBM systems an alternative to the test in line 1 involves event handling thus: 
C1] "+L1*QEA'L' 


Examples: 
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-ТКАСЕ/14 
4 


The order of the operators reduce and TRACE is important: 


-/TRACE 14 
£1234 = -2 
2 
The trace which was given step by step earlier can now be achieved by 
(-COM TRACE Along "014 
1 


2 
Ж. 


LEES 
ром 
"un 


5.4 Recursion with Functions and Operators 


A recursive operation is one which is defined in terms of itself. A nested array 
is an array whose items are themselves arrays and hence is an inherently recur- 
sive structure. Using the advanced APL2 features is thus likely to bring about a 
shift in programming style towards recursive methods. In first-generation APL 
reduction of a function F applied to a vector can be described as a process 
whereby F is slotted in between each of the items of the vector thus: 


V[12 F VC2] F VC31 Е... 
following which right to left execution takes place in the usual way. This is the 


iterative approach to the situation. Another equally valid way of describing 
reduction is to define it as 


CD. F (Е/1+\) 
which has the merit of requiring only a description of how the first item behaves 
in relation to the rest, together with a (usually obvious) stopping rule to deal 


with the simplest case. The intermediate working is thus completely delegated to 
a computer. For example +/ can be described as 


го] Z«SUM R 


[1)  *L1 IF 1=p.R ^ , ensures function works for scalar R 
[2] +0 ZeC*R) «SUM 1+8 
[3] 11:2+8 


Now consider the problem alluded to in Section 1.4.2 of defining a function 
for the path to the first occurrence of a given simple scalar L in an indefinitely 
deeply nested vector of vectors R. This is a recursive problem calling for a recur- 
sive solution: 
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[O]  Z«L PATH R;T 

[11 +11 IF 1<=R ^ branch to L1 if R not a simple scalar 
[23 +0 2+10 п if it is, stop and return empty vector 
[3] L1:T*(Lé^e"R)11 ^ identify subtree T at current depth 
[4]  Z«T,L PATH TƏR ^ .then find path within T 


V12«12(13C14 15))(16 17) 


14 PATH V12 
2 3 


If L does not belong to R, an error is reported. One way to deal with this is to 
have PATH return an empty vector in this case - this is achieved by adding 
another condition to line 1: 


C1] *L1 IF A/(LeeR) , 1szR 


A drawback to this solution is that it does not deal with the “level-breaker” case 
described at the end of Section 1.3.1. 


V*€'ABC'(c13) 


3 PATH V 
RANK ERROR 
PATH[3] L1:Te(Le“e"R)11 
^ ^ 


This situation is detected when R is a non-simple scalar so an additional test 
must be added: 


со] 2+1 Path RiT 

[1]  *L1 IFA/(LeeR) , 15zR 

[21 +0 2+10 

[3] Lt:*L2 IF(10)=pR ^ goto L2 if R scalar 

[4]  Te(Le^e^R)i1 

[5]  »0 Z«T.L Path Тэн 

C6] L2:Z«€(c10),L Path+R a . and return the level-breaker 


DISPLAY 2 Path V 


The following recursive shell is one which will be used frequently in the 
remainder of this text: 


VZ«L FN R 
C1] *L1 IF ... ^ stopping condition 
t21 +0 Ze..FN.. ^ recursive expression 
[3] 11:2+... a Stopping action 


An example of an operator developed using this shell is SIMPLE in which the 
function P is applied recursively to each item of R until simple arguments are 
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reached. This has the effect of making non-pervasive functions “penetrate” deep 
objects. 

Co] Z«L(P SIMPLE)R 

[1] 911 IF 2»sR 

[21 +0 Z+L(P SIMPLE)"R 

[3] L1:Z+L PR 


V12«12C13(14 15)) (16 17) 


12 12 13 13 14 15 16 17 


Read a line such as the above as an extension of 2pR, i.e. the primary subdivi- 
Sion of the expression is 


2 (pSIMPLE) V12 


with pSIMPLE being thought of as “an enhanced version of p." This, like Com in 
Section 5.1.2, demonstrates that the binding of operators to functions is stronger 
than that of functions to arguments, or in simple terms operators are resolved 
before functions. 

The recursive shell given above indicates the general organization of a recur- 
sive operation within which certain requirements must be met for it to be a valid 
recursive operation. 

First, the definition must be explicit for some value or condition of the argu- 
ment. This condition is the stopping condition, e.g. 2>=R in line 1 of SIMPLE. 
If there is not at least one value or condition for which the definition is explicit 
the recursive operation is circular and will never terminate. 

Secondly, the recursive operation must call itself with a modified argument 
which approaches a stopping value or condition and which it reaches in a finite 
number of steps. [In the operator SIMPLE the recursive expression in line 2 
achieves this through the each operator which causes the argument of the 
derived function to be applied to data one level down in the structure of R. A 
recursive operation which does not modify its argument in the course of a recur- 
sive call is called regressive and provided at least one recursive call is made it is 
also non-terminating. 

In recursive operations the distinction between the actions of local and global 
variables is very important. Consider the following regressive recursive function: 
[0] Z«FN R 
[11 Z«1 
[2] +0 IF O2I«I-1 
[3] Z«Z,FN R 


which terminates only when a system limit such as WS FULL is encountered or 
an attention interrupt is issued. Assuming that a value for the global variable r 
was set before the first call, the value of I on termination indicates how many 
recursive calls took place. However if the value of I were set within the func- 
tion e.g. by 


[1.1] I«100 
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then the value of I would be reset on every call. If a temporary variable is used 
for an intermediate calculation at a specific level within a recursive function it 
must be localized as T is in PATH, otherwise only one copy of T would exist no 
matter how great the depth of the recursive calls, 


Illustration : Selective Enlist 


A selective enlist function performs the enlist process in a gradual way and stops 
when depth gets to a prescribed level L. It provides another example of a func- 
tion which uses the recursive shell. 


[oj Z«L ENLIST R a Lis an non-negative integer, R an array 
[11 +11 IF L2zR a stop at target depth 

[21 +0 Z«*,/L ENLIST’R a if not go one level lower 

[3] L11ZecR ensure that simple non-scalars are enclosed 


The principle is that for vectors 0 ENLIST R is simple, and provided that the 
items of к are themselves vectors at every level О ENLIST R is equivalent to 
єк. Increasing values of L give progressively “gentler” enlists in the sense that 
more levels of structure are preserved. 

The function ENLIST involves some sophisticated coding in line [2]. The 
strategy is that if the depth of the object is greater than the target, each item is 
separately ENLISTed and the results catenated; hence the ,/.  Catenate 
reduction, , /, requires a final enclosure in order to ensure rank reduction (this 
is discussed in more detail in Section 5.5.2), hence the necessity for * prior to 
»/. If L is greater than or equal to 2R, ENLIST adds one additional level of 
enclosure. 

Here is an example of the use of selective enlist applied to a tree of character 
strings representing the names of disk files and directories: 

V514'DIR1'('F1' 'DIR2'(*F2* 'F3!) 'DIR3'(c'F4*)) 
DISPLAY V51 


П | 
i 1 bg 
[ | TF IDIR2] | pe pe | 101831 b pe ||| 
1 | bed bet | |2) |Ез1! 1 1—1 1 |1111 
' П | Led e FL op 
1 t La maam le || 
1 be 1 | 
L 


єў51 
DIR1F1DIR2F2F3DIR3F4 
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DISPLAY 1 ENLIST V51 


г 1 
|or—34 pr] £p a Е еа ТИ 
| IDIRi1| |F1i IDIR2| |F2| [F3} IDIRS| iFa] | 
| ILL LI ШЙ НЫЛ uli ИН 
Le. —————Àà 


DISPLAY 2 ENLIST V51 


А 
L e—a І 
| IDIRG] |F1| IDIR2I | pm rm | IDIRSI | pe || 
| L—— 1—1) L3 | fret ies) | —À rai n 
1 | У Ы | 1 ті 
] A ————— Le— | 
Li J 


Exercises 5b 


1. Construct recursive functions (a) PRODUCT and (b) JOIN which describe x/ 
and ,/ in a manner akin to SUM in Section 5.4. 


2. The function Path in Section 5.4 requires that the items of its right argument 
be vectors. What changes must be made so that the items of R may be of any 
rank? 


3. Use the recursive shell described in Section 5.4 to write a function CHALL 
which replaces аЙ occurrences of L[1] in a vector R with LC21. (Use the func- 
tion CHANGE of Section 1.4.2.) 


4. A dyadic function P with header 2+1, P R can be thought of as combining 
with one of its arguments, say R, to provide a new monadic function (Р В) 
which is applied to the other argument, e.g. «2 can be thought of as the 
monadic function “square.” Equally (1, P) can be thought of as a monadic 
function applied to R so that зя means “raise 3 to the power." Applying such 
functions repeatedly, say Q times, is conveniently handled by defining opera- 
tors with operands P and Q. 


a. Write an operator POWER1 whose header is 
roi Z«L(P POWER1 Q)R 
and which causes P В to be applied Q times to L with the intermediate result 


being fed back each time. For example if P is я and R is 2, 1. 5( «POWER1 3)2 
means ((1.52)2)2. 
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b. Write an operator POWER2 with a similar header which causes the function 
L P to be applied Q times to R with feedback so that 1.5‹ хРОМЕВ2 3)2 means 
1.5 to the power(1.5 to the power 1.52). Assuming convergence, POWER2 pro- 
vides an iterative solution of the algebraic equation y =L P y. 


c. Use POWER2 to find a solution of the equation y = cos(y). Take a start 
value of 1 and investigate the number of iterations required for convergence to 
six significant figures. 


d. A cryptographer defines the 26 upper-case letters of the alphabet as ALF 
and uses an anagram of ALF, e.g. ALFC 26726], as a code replacement string L 
to encrypt a message R. The function he uses to do this is 


Co] Z«L CODIFY R 
[11 Z*«LLALFiR] 


To make his encryption more secure he repeatedly encrypts the encrypted word. 
Which of POWER1 and POWER2 above should he use in order to encrypt a source 
message four times in succession? How does the receiver then decode it? 


5. To "polish" a matrix means to subtract a sequence of values, say the row 
means, one from every row, and then another sequence, say the column means, 
one from every column. Write an operator POLISH which achieves this, and use 
it to obtain the mean polish and also the median polish of the matrix 


о 6 6 
4 0 2 


(The median of a vector R is defined as .5x+/R[[.5xO 1+pReR[àR]] ) 
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5.5 Extensions to First-generation APL Operators 


5.5.1 Reduction 


A general principle of reduction is that it reduces rank. It does not reduce depth. 
With scalar dyadic functions this is an entirely natural rule, e.g. +/2 2 2 trans- 
forms a vector to a scalar and and +/2 214 transforms a matrix to a vector. 
However when reduction is applied to non-pervasive functions, adjustments to 
depth must sometimes be made in order to maintain the rank-reduction rule. 
The functions p and , have the property of increasing rank, e.g. starting with 
two scalars 2 and 4 both 264 and 2,4 give results which are vectors. In order 
that p/2 2 2 and ,/2 2 2 should produce scalars an extra level of nesting 
must be provided. 

As noted in Section 5.4 F-reduction can be described by inserting the func- 
tion F into all the available spaces of V(11 УГ2] ... and evaluating the 
resulting expression. So what changes must be made to the first-generation 
APL rule to deal with this state of affairs? Since indexing provides cross-sections 
of arrays, VC 13 is not the first item of v, rather it is a container for the first item 
which can be opened by э. Thus it is F^ rather than F which is inserted into the 
spaces of V1] — VC22 .... At the function phase the each rule (see Section 
4.1) applies. If the items are scalars or if F is pervasive the each makes no dif- 
ference, and so there is no inconsistency with the first-generation APL view of 
reduction. 

Alternatively one can think in terms of pick which penetrates the items, so 
that F-reduction is obtained by inserting F into the spaces of 


(12V) (22V) (35V) .... 


and applying a final enclosure. 


Illustration : Reduction applied to matrix multiplication 


Consider the sequence of algebraic matrix multiplications which is given by 
*.xX/ABC 


where A, B and C are compatible matrices. One way to determine the exact 
result of this expression is to consider a recursive definition of the derived func- 
tion DF arising from applying reduction to +.x (cf. SUM in Section 5.4): 

01 Z«DF R 

[13 *L1 IF 1=pR 

[21 +0 Zec(4R) *. x2DF. 1+8 

[3] Li:ZectR 


A B Cis a nested vector, comprising cells which contain matrices. The function 
*.x can properly be applied only to items, that is the contents of cells, hence the 
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depth reducing * and > in line 2. After executing the +.x the resulting matrix 
occupies a single cell, hence the enclosure in line 2. The encloses which appear 
immediately to the right of the assignment statement in both lines 2 and 3 show 
that the result of the +. х reduction is a scalar of depth two. In order to achieve 
the mathematical matrix product ABC which is a depth-one matrix it is neces- 
sary to apply either > or +. The expressions 


э+,х/А B C and t+.x/A BC 


have equivalent output for the reasons given in the Section 4.3.4. Another way 
of looking at the role of ¢ and > in DF is that what reduction reduces is rank, 
pA B C is 3, and has rank one since p always returns a vector, and so the result 
of the *. x reduction must be a scalar, namely the enclose of the solution matrix. 
Eliding the references to R in the recursive part (line 2) gives 


2+с..эрғ 


which is another occurrence of the < > sequence observed in the each rule. 


5.5.2 Reduction with Rank Greater than one 


If reduction is applied to objects of rank two, enclosure takes place along the 
last dimension and the vector rule for reduction is applied to each item of the 
result. Enclosure along the last axis gives a row vector whose items are the rows 
of the array. The final result is the vector whose items are the plus reductions of 
each of them, e.g. 


DISPLAY +/2 3016 
16 151 
— 
Now consider the reductions of non-pervasive functions such as e and ,. 


DISPLAY ,/2 3p16 


1—1 


Sat ee 
1 145 61 | 
1 Ш IL 
L 


DISPLAY ,/2 2р'АВСр' 
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DISPLAY э” /7c[212 3p16 


e 
1 rt 
11231 145 6l I 
LI ш 


І 

1 

| 

a 

»/A is the same as c[27A for simple arrays A. Contrast this with 
DISPLAY ,/72 2p'ABCD' 


m 
*ABI 
ICDI 
[Ef 


The each makes a scalar function from »/, and so following the discussion in 
Section 4.1.1 ,/ is applied to the four character scalars separately, and the 
result is a simple two by two matrix. 
In the next example enclosure again gives two row vectors: 
DISPLAY р/2 214 
ea | 
1 1 
1121] 1444] | 
pos Wid | 
bee —— 
and the result is (102) (3ра). The principle, formally defined as 
F/A +» >“F/“c[ppA] 
extends in a natural way to arrays of higher dimension: 
DISPLAY p/2 2 2р18 


pence p 


166666! i888 8 8 8 8| 
аі uL 
€ —À 


[ 
! 
ыз ш І 
І 
! 


In the above example the principles of rank reduction apply and the result is a 
two by two matrix. Enclosure along the last dimension gives a two by two struc- 
ture of row vectors, and applying p/ to each gives 


(1р2) (304) 
(596) (7р8) 


A similar argument applies with catenate in the next example: 
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DISPLAY ,/2 2 2p'ABCDEFGH' 


+ кеу | 
| JABI \CD) | 
pose 
| rp re d 
| [ЕЕ] IGHI | 
І І 
L 


the steps of which can be broken down as: 
DISPLAY 2",/"ct3]2 2 2o'ABCDEFGH' 


5.5.3 Scan 


Scan defines an array of reductions, and informally therefore preserves the rank 
which reduction reduces. For example 


у++.х\М1 M2 M3 


for compatible matrices M1, M2 and M3 is a depth two vector of matrices 
(M1) Ctt, x/M1 M2) (++,х/М1 M2 M3) 


ie. VE1]=eM1, VC2]zc4*.x/M1 M2, V[3)zc^*.x/M1 M2 M3. Because V is 
a vector, ^V and əV are not equivalent in this case. Both bring about depth 
reduction but + returns the matrix M1, whereas > returns a rank three depth 
one array whose planes аге M1, (М1+.хМ2), and (М1+.хМ2+.хМ3) respec- 
tively, possibly padded with os. 


Illustration : Co-ordinates of Spirals 


The initial point of a spiral drawn as a two dimensional graph using Cartesian 
co-ordinates and O as origin is taken to be P(0,1). A function SPIRAL defines 
four new points which are generated by rotating OP through an angle of R anti- 
clockwise degrees, and stretching it by a factor L. The result of SPIRAL is à 
matrix, each row of which is the co-ordinates of a point on the spiral. The aux- 
iliary function ASPIRAL generates in its second line the rotation matrix M: 


cos@ sin 
-sin@ cos @ 
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for which V+. xM gives the co-ordinates of the result of rotating the point with 
co-ordinates V through an angle 8 


[oi 
(11 


Co] 
[11 
t21 


Z«L SPIRAL R ^ Lis stretch factor, R an angle in degrees 
Zes*.xXCc0 1),üpcL ASPIRALOR#180 


Z+L ASPIRAL R;S;C 

(S С)+1 20R ^ Sand С are sin and cos 

Z*Lx2 2pC S(-S)C a Zisthe transformation matrix 
to move to the next point 


2 SPIRAL 45 


75.657 
716 


Illustration : Scans with Binary Arguments. 


With the exception of circle the scans of the scalar dyadic functions have some 
interesting properties. A useful binary matrix for demonstrating these is con- 
structed by 


22220000 
22002200 


22020200 
22002200 


2202020 


M53«(8p2)T15,(6p51 53),113 


M53 
o 


22002200 
22020200 
20002220 


A better visual way of representing this matrix is to represent the os with dots 
and the 1s with asterisks: 


*.*'{[1+М531 
S 


(XO 
PEPEPEPE 
RRR, 


к. 


JO IIR, 
FOI IO IR 


Here are the scans of the six relational and four logical primitive functions 
applied to this matrix: 
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= ES >\ 
ТТР PP 
ТТР THRO. 
etter) ке E 


ИЕГЕ (Akon БА m ИТЕ 
X. XR. РОСТ FIR KARR RRR 
KR xu. RIK IR FO RR ROO 
AXEYXXRK, эллез, жалаа II 
XXROKOR FIA FO IIR ITO ГИЯ 
v\ "^ *\ 
n LEM LLLI 
PP Inn RRR 
RII IO OI 
IRI RIO ‚жалай 
ГОСТА ЖАКА Ree . Rees 
AAA FRI LERRET Ree . жа... 
ж.ж, яя ХАХАХА КАХА *.. 5 RR 
RRR XXX OO KG GRO Ree 3 *k VA. 


There are four scans which between them have the greatest practical use when 
applied to binary vectors. Subject to the universal rule that scan leaves the first 
item unchanged, the behavior of these scans can be summarized: 


vA : detects the first 1 and switches all following bits to 1 
^X : detects the first 0 and switches all following bits to 0 
«X : detects the first 1 and switches all following bits to 0 
<\ : detects the first 0 and switches all following bits to 1 


Illustration : Delete leading blanks from a character vector 


This can be achieved by either of two expressions, viz: 
(A! *=CV)/CV 

or 
(ANI ICD ИСУ 


Mustration : Display comments only on an APL line 


This can also be achieved by either of two expressions, viz: 
(VV I* LINE) /LINE 


or 


(9 vVX* 8 SLINE)/LINE 
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Illustration : Remove first occurrence only 
(a) character from a character vector. 


To remove the first occurrence only of X from a character vector use either of 
the two expressions: 


CSN! X! 1CV) /CV 


or 


Со} "Xt =CV) /CV 
(b) word from a sentence. 


Define the sentence as a vector of character vectors (words): 
V52«'VERMONT' 'IN' ‘THE’ 'THE' 'FALL* 

The first occurrence of THE can be removed by either of 
(SN^V522"c* THE')/V52 


or 


(4«NV522^c' THE')/V52 
aS 


The above illustrations exhibit a duality inherent in the scans listed above. In 
particular the last two show that the dual of < is < and not > as intuition might 
Suggest. Another way of describing the behavior of the four scans in a concise 
way is by the following table: 


0-continuation l-continuation 


s 
v 


O-detector ^ 
1-detector < 


The functions a and v down the leading diagonal have the property of 
idempotency, that is 


A +» АлА and A +» AVA 


Consider the functions which are the “not”s of the functions in the above table. 
The behavior of their scans depends on whether the first bit is 1 or 0, and their 
effect is either that of an “alternator,” that is a function which takes a series of 
uniform bits and transforms it into an alternating sequence of 1s and Os, or a 
“sweeper,” that is a function which makes all bits alike. 

For first bit = 1 the following table applies: 
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O-continuation I-continuation 
Alternators > * | 


Sweepers * 2 


If the first bit is 0 the roles of alternator/sweeper are reversed. The functions 
down the non-leading diagonal of this table are cyclic of order two, that is 


A +» А>РАРА and А ++ А>А>А 


The functions = and * are also alternators but are not dependent on the first 
bit. Instead they have the effect of doubling the length of the subsequences 
within alternating sequences, and hence quadrupling, octupling etc. them by 
repeated application. 


Illustrations : Spacing character vectors 


Spaces can be placed between alternate characters of a character vector by: 


(=\(2xpT)p0)\T+" FREDERICK" Aa start with space 
FREDERICK 

(#\(C2xpT)p1)\T+' FREDERICK’ a start with first character 
FREDERICK 


Selecting alternate items 


Using scan is an alternative method to indexing: 


(=\ (pT) pO) /Т+110 ^ even numbered items 
246810 

C4\CpTIp19/T#110 п odd numbered items 
13579 


Illustration : Adding columns of zeros to table 


(2X C2x239NM) pt) \NM 


opens up alternately spaced columns of zeros in a numeric matrix NM. 


Iilustration : Partty checking 


=/BV and #/BV give l-parity and O-parity checks respectively for a binary 
vector BV: 
BY+0 11101 


(2/BV) , (#/BV) 
10 


Further 2XBV gives on-going 0-parity checks on the sequence so far: 
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BV«0111041 
*NBV 
010110 


The scan diagrams given earlier cover the six relational and four logical scalar 
dyadic functions. Apart from the circle function (o) which is special, there are 
ten further primitive scalar dyadic functions. What are the results of applying 
their scans to the matrix M53? Four of them give results outside the binary 
domain, the remaining six duplicate the tables in the following pairings: 


€]. ts td (Q0. (D. (GL) (KG x) 
The functions above can also be arranged in dual pairs where "dual" in this 


context means that ~F\~V is equivalent to (dual F)\v. The primitive functions 
which possess duals are 


F = л ж <> [fI 
dul .* vw s > | x 


The easiest way to visualize this duality is to rotate the appropriate scan 
matrices above about a horizontal axis. 


5.5.3.1 Reversing scans 


The following operators invert scans with vector arguments: 


Col Z+(P UNSCAN)R 
C1] Z*RL1], (10Р 1+8 


[03 2+(Р UNDO)R 
11 Z*RO1],(714R)P 14R 


and the following relations apply: 
P COM UNDO R ы P UNSCAN R 
P COM UNSCAN R ++ P UNDO R 


го] 2+1,(Р COM)R 
С1] 2+8 PL 


UNSCAN works if Р is associative and there exists an inverse function (see 
Section 4.4.1.2) - the only functions satisfying this criterion are + - = and e. 


-UNSCAN and -COM UNDO bothreverse «X 
*UNSCAN and #COM UNDO both reverse xv 
=UNSCAN and =UNDO both reverse =\ 
*UNSCAN and #UNDO both reverse #\ 
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Mustration : Gray codes 


Gray codes are a method of representing integers using binary digits in such a 
way that only one bit is changed when an integer is incremented by 1. #\ con- 
verts Gray code representations to binary and #\UNSCAN does the reverse. Gray 
codes can therefore be obtained by first obtaining binary representations using T 
and then applying UNSCAN. A table of the first 15 integers in Gray code is given 
by: 

T,2[2]20UNSCAN"c(11(4p2) TTe115 


10001 
20011 
30010 
40110 
50111 
60101 
70100 
81100 
91101 
20:32 1.7571 
111110 
121010 
1011 
1001 
1000 


5.5.4 Expand 


Suppose that a character matrix M is given: 


M+2 Зр'ВАТМАМ' 
DISPLAY M 


pt) 
ҰВАТІ 
IMANI 
L1 


together with the instruction "Space the matrix M." On the structural level this 
might imply using ravel with axis (see Section 1.2.3), e.g. 


M+2 3p'BATMAN* 
DISPLAY ,[1.17]M 
г 
++ 
n 
Е 
L 


At the data level there are at least nine possible interpretations of this instruc- 
tion as the following set of expressions show. Consider first 
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DISPLAY 1 O 1 O 14M 


Unlike first-generation APL where \ is the function, expand, \ is now an oper- 
ator so the derived function in the above expression is 1 0 1 0 1X. Enclosing 
M forces scalar expansion of the right argument as in the next expression: 


DISPLAY 1 O 1 O 1\cM 


is reo pr l 
| +BATÌ + | +BATI + | $BATI | 
| IMANI | | IMAN] | | IMANI | 
| a ш ыл CL L1 
Le. 4 


DISPLAY 1 O 1 O 1\"M 


2s AS qd 
| IB B B| IAA A! ITT TI | 
| oL LO а | 
treo] r | 
| IMM MI IAA AE INN NI | 
] t 
L, 


| 


Replacing enclose by each forces scalar expansion of each item of M: 


The each in the above expression has the derived function 1 о 1 о 1N as its 
operand. As with replicate (see Section 2.2.1) the left operand of \ must be 
simple. An expression such as (<1 о 1 о 12\"M thus leads to a DOMAIN 
ERROR. To apply each in this situation it is necessary to create a defined func- 
tion, e.g. 


to] Z«L EXPAND R 
Сај 2+1\8 


DISPLAY (1 0 1) (1 0 0 1)\""AB* 'DE* 
DOMAIN ERROR 
DISPLAY(1 О 1)(1 О 0 1)\"*AB! *DE' 


A A 
DISPLAY (1 0 1)(1 О 0 1)EXPAND"'AB‘ 'DE' 


Prg eel 
1А Bl ID EI | 
Loe, 
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DISPLAY (c1 О 1 О 1)EXPAND“M 
ы тоо! 


pt VES road {тс 
IB B BI ААА! IT T TI 
LLL v 


IM M BMI JAA Al IN N NI 
LILLY LLLI a 


* 
1 
1 
| Sa, теге 
1 
Lg Ц 


Partial enclosure requires matching lengths between 1s in the left operand and 
the number of columns or rows in the right argument: 


DISPLAY 1 0 1 О 1\cC{1]M 


l | eran dl aar AG co | 

| IBMI | 1 IAAL | | ITNI | 
| L— L3 L2 L3 L| 
L 


Now use each once again to force itemwise scalar expansion of first columns, 
then rows: 


DISPLAY 1 О 1\"c{1]M 


DISPLAY 1 O 1 О 1V^cC2]M 


Lp op 
| IBATI IMANI I 
| LI c 
t 


Matching disclosures make the results simple: 
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DISPLAY 2[2]1 О 1\"c[1]M 


DISPLAY э[111 0 1 0 1\"c{2]M 


5.5.5 Outer Product 


The key phrase associated with outer product is, as in first generation APL, each 
with every, that is each of the items in the left argument is combined through the 
function operand with every item in the right argument. However since any 
result producing dyadic function can be the operand, the depth of the result 
may change. Consider for example 


DISPLAY (2 2)3*,43(4 5) 


1 
] 


r 
* 
1 18 SI 16 7I 
Poo woo 
] pe 
| 6 17 81 
I LL. 
le 


| 


DISPLAY (2 2)3*.53(4 5) 


Each cell of the result is obtained as 
20159] +» c(LCIDFƏRCI] 


Compare this with the each rule (see Section 4.1) which states that if Zeb. F"R 
then 


201] ++ c(oLCIJDFSRIJ 
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If the arguments are of higher rank than vectors, replace replace I and J above 
by the indices necessary to reach scalar level. For example, if L and R are 
matrices 


ZCIsTsKsL] ++» cC(LLINDFSRUGL] 
or more generally 
ZCLIsRIJ ++ c(2LLLII FARIRI] 


where LI and RI are index sets for L and R of appropriate rank. 
The shape rule from first-generation APL still applies, viz.: 


the shape of the result is the catenation of the shapes of the arguments, 


or more formally: 
р2 +> (pL).pR 
Establishing the shape of the result initially is often very helpful in working out 


the values of outer products. For example, the following outer products neces- 
sarily result in two-item vectors: 


DISPLAY^(1 2*.xc3 4) ((с1 2)*.x3 4) 


ЖЫ жу 1 
Pears! dore or! 
113 4| 16 81 1 1 i3 6| 14 81 1 
poo woot}; qt E Lo 
Ei, ———à 


On the other hand, the following outer product must be a scalar : 
DISPLAY (ct 2)*.xc3 4 


5.5.6 Inner Product 


In first-generation APL, inner product operands are restricted to primitive 
scalar functions and the shape vector rule dominates the outcome in that if L 
and R are left and right arguments respectively it is necessary (subject to scalar- 
extension flexibility) that 


(714pL) +» 1toR 


The shape of the result is (oL) , eR with both the matching inner shape vector 
items removed. 

The most common form of inner product is that in which a pair of matrices L 
of dimension (m,k) and R of dimension (k,n) is reduced to a single matrix of 
dimension (m,n). 
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P.Q = 
m L k R m| LP.QR 


Each cell of the result of L P.Q R is the result of first applying the functions Q 
between each item of a pair of vectors, one a row of L and the other a column of 
R, and then doing a P reduction on the result. The two functions P and Q thus 
behave quite differently, Q is a function operating between matching pairs of 
items, P is the operand of a reduction. 

The most frequently occurring inner product is «.x which is equivalent to 
matrix multiplication in the mathematical sense. Each cell of the result is an 
itemwise product of two vectors, and then plus reduction is applied to the 
resulting vector. 

Another frequent inner product in first-generation APL is л, =. By the same 
reasoning this gives 1 only if alf (^/) the matching pairs in the vectors are equal. 
Similarly у. = gives 1 if at least one (v/) of the matching pairs are equal. ^ and 
v as left operands of inner products thus model the universal and existential 
quantifiers respectively of symbolic logic. 

The logical functions give rise to other inner products with binary arguments: 

v gives 1 if all pairs contain at least one 1 

^ gives 1 if at least one pair has two 1s 

zl gives 1 if there are no pairs of matching Is 
» gives 1 if all the pairs consist of two Os 


Some inner products which apply to numeric arguments are: 


Tek gives the maximum of a set of pairwise minima (maximin) 
L.F gives the minimum of a set of pairwise maxima (minimax) 
Le- gives the minimum of a set of differences of paired items 


In APL2 the shape rule still applies but operands may be both user-defined 
functions on the one hand, and non-scalar primitive functions on the other. For 
example in considering the last of the above inner products it is likely that the 
absolute difference might be of more interest, that is the inner product L.AD 
where 


col Z+L AD R 
(11 Z+|L-R 


25979 L.AD 4 1 6 15 


The price of this increase in flexibility is a slight increase in the complexity of 
the inner product rules. To evaluate L P.Q R the following sequence of actions 
must be carried out: 


Step 1 : Enclose 1, and R along inner matching axes. 
Step 2 : Perform Q outer product. 
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Step 3 : Apply P/ within each cell, or equivalently P/^ to each cell. 


Consider as a further example the inner product 
Т+.оТе2 2pi4 


Enclosure along last and first dimensions of left and right arguments respec- 
tively means that the p step of the operation consists of forming the outer 
product of the two vectors 


(1 2203 а) and (1 3)(2 4) 


The each rule applied to outer products as described in the previous section 
leads to the depth-two rank-two array whose four cells are 


(e 2р1 3) | (е1 2р2 4) 


(c3 4p1 3) (<3 4р2 4) 


Now apply +/" (that is +/ within each cell) to give the final result 


4 6 
888 12 12 12 


Eliding arguments the picture is 


emphasizing that a function composition occurs within each cell. 
Formally the definition of the inner product ZeL(P.Q)R is 


Z«F/"(c[poL1)*.G c[17R 
and the shape of its result is 
eZ +» (T1toL), 19 5R 


Inner products allow great programming versatility as the next illustrations 
show. 


Hlustration : Finding vowels In words 


Consider the difference between the following two expressions: 


Се'САТ') ^, i AEIOU* 
24444 
*САТ'{ 


1*AEIOU' 


2 


The inner product 1.1 returns the index of the first vowel in the word "CAT". 
To find the first vowel in each of a vector of words use 
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"САТ' 'ELK'[.i^c'AEIOU' 
21 


or equivalently 


L/*CAT' 'ELK'*,i'AEIOU* 
21 


The case where the right argument of P.Q is a scalar is of special interest since 
P/ of a scalar does not involve an execution of P. Thus if P is any scalar func- 
tion 

"CAT! P.i*A* 
is equal to 2 and 

"CAT! P.ic' AEIOU' 


is equal to 4. 


Illustration : Gradient of mid-points 


Define 
[0]  Z«L GRAD R Сој  Z«L MIDPT R 
[1]  ZetLt.-R [1]  Ze.5xL«R 


to return the gradients and mid-point of pairs of points defined as two-item 
vectors of Euclidean co-ordinates. Ignoring the complexities of zero and infinite 
gradients, if A, B and C are three points then 


А B GRAD.MIDPT B C 
gives the gradient of the line joining the midpoints of AB and BC. 


lilustration : Sampling Extreme Values from Uniform Distribution 


This illustration is a variation on the function deal. The expression n?100 
describes a random sample of n integers drawn from the uniform distribution of 
integers 1 to 100. For n not exceeding 100, nr . 2100 returns the maximum of a 
sample of n such integers. nf .? "mp100 returns the maxima and nL.?"mp100 
the minima of m such samples. For example: 

ТОГ. 2150100 
97 95 88 92 90 97 93 95 100 84 56 97 95 96 94 


3[.?715e100 
84 57 79 81 81 67 95 93 95 53 72 BS 69 5B 92 
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10L.?7150100 

5 2 107 9 16 1141211337 
3L.?”150100 

19 56 17 24 12 44 22 20 45 18 44 28 34 16 14 


The functions , and p lead to a further subtlety on account of their rank- 
increasing property discussed in Section 5.5.1. Consider for example the inner 
product 1 2 3...4 5 6. The shape rule for inner product requires that the 
result is a scalar since discarding the inner (and only) axes leaves nothing in the 
shape vector. To find its depth and value determine first the catenate outer 
product of the two scalars obtained by enclosure along the inner (and only) 
axes: 


DISPLAY (c1 2 3)*.,c4 5 6 


roy 
pe ДШ. 
112345 61 1 
l 


1 

1 

| be ] 

0—1 

Then the ,/" corresponding to the leftmost catenate in the inner product results 
in a further enclosure for the reason given above, giving as the final result the 
depth three scalar: 


DISPLAY 1 2 3,.,4 5 6 
qo ———— | 


| 


І 
I 
11234561 11 
[ 
1 


In summary the evaluation of inner product requires an application of several 
important identities all of which play a role in determining the data, shape and 
structure of the result. Formally these are: 


l.L P.Q R ++ P/"(cEpoL2JL)*.QcC 1]R 
2. For Z+L+.P R, cach item 201:7] +» c(>LCIDQƏRCI] 
3.P/^M ++ СР/>А . 


As a further example consider the evaluation of the expression 1 2 3p.p4 5 
by following the formal rules. First by identity 1 
12 3p.p 4 5 ++ p/"(c1 2 3)*.pc& 5 
There is no need for axis specification on the enclosures since both are vectors. 
The shape of the outer product (e1 2 3)*.pc4 5 is the join of two 105 and 


so the outer product itself is a scalar. Applying identity 2 to cach item in the 
outer product - in this case the only item - gives 


€(21 2 3)р(>4 5) 
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the result of which is: 

DISPLAY <(21 2 3)8(24 5) 
! 
P4445 ај 
11s 4 
I 
Le— 
that is a scalar containing a rank 3 array. Now р/” is applied to this interim 


result. Applying identity 3, p/"c(»* 2 3)e(>4 5) сап be replaced by 
€e/2c(21 2 3)p(»4 5). Simplifying the əs in this expression gives 


DISPLAY cp/1 2 3p4 5 
q——————— 


1 
[ 
1 
[ 
l 
yn MM 
Finally then, (c1 2 3)p.pte4 5) is equivalent to 
DISPLAY 1 2 3 p.p 4 5 


| 
| 


| 
І 
14444) 15 5 5 5 51 | | 
с L.. І 
І 


Ехегсіѕеѕ 5с 


1. Given 
He2 2p(2 1р16)(2 3р7+16)(2 4pO16)(2 29) 


what are ,/H and c[2]H ? 


2. If 


M+2 3e‘ABCDEF' 
А+2 2 Зо'АВСРЕРСНІЈКІ' 


what are the values of the following 
a.,/M  b.,/7M  €.,/A  d.,/"A ? 


3. a. Write a function SUBMAT which returns every consecutive submatrix of 
Shape L occurring within a matrix В. For example if M54 is the matrix 
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2022 
2220 
оз-оз 
о-о 

222 


о 


v 


3 SUBMAT M54 should return the 2x3 matrix of consecutive 3x3 submatrices 
occurring in M54: 
101 010 


110 101 011 
011 110 3.871 


o 


110 101 011 
011 110 101 
110 101 010 


(Hint - you may find n-wise reduction useful, see Section 2.2.2) 


b. Use SUBMAT to detect every occurrence of the pattern 


2o02 


in a bit matrix. 


C. Write a function PATIN which generalizes this process to match any given 
binary pattern in any binary matrix. 


4. The following three exercises all involve the use of scan. 


a. Write an expression which returns a given character vector CV with double 
spacing between each item, that is two spaces should follow every character, e.g. 


FREDERICK 


b. Write an expression which returns CV written in blocks of two characters, 
each followed by a space, e.g. 


FR ED ER IC K 


c. Write an expression which deletes a comment from an APL line, that is all 
characters to the right of a including n itself. 


5. a. Predict the value and structure of 
((2 2)3)*.06(8 1p*ABCD') 


b. For the two simple matrices 


А+2 2p14 
Be2 20014 
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evaluate in full detail the inner product A+.xB and confirm that the result is the 
same as in first-generation APL. 


6. Evaluate the following outer products in terms of value, shape and structure: 


a. 2 49.47 46 d. 2 35.51 4 
b. 2 40.41 4 6 е. 2 4 6*,,'AB' 
С. 2 2..р1 4 f. 2 4 6*.,'AB* 'CDE* 


7. Using an analogous argument to that in Section 5.5.6 for 1 2 3,.,4 5 6 
determine without using a computer the shape, structure and value of: 


a. 3 2 10.03 2 1 d.1 2 3p..4 56 
b. 3 2 1p.93 2 1 e 1 2 35.423 4 
С. 12 3,.ра 5 6 f. 1 2 3+,-23 4 


8. This exercise is designed to force precise application of the rules for reduction 
and inner and outer products, and should therefore be done in the first place 
without help from a computer. 

The two functions AVG and MID which follow both return the average of L 
and R in the particular case where L and R are both simple numeric scalars. 


[0]  Z«L AVG R [0]  Z«L MID R 
11 Ze.5x*/L,R [11 ZeL*.Sx-/R,L 
Use the rules for reduction and inner and outer products to find the values of 
a. AVG/14 MID/i4 
b. 12.263 4 5 1 2:MID34 5 
€. (et 2)+.AVG 3 4 5 (c1 2),.МІр з 4 5 
d. 1 2,.AVG3 4 5 1 2,.MID34 5 
€ 12 AVG..3 45 12 MID.,34 5 


f. 12 AVG.MID 3 4 5 1 2 MID.AVG 3 4 5? 
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5.5.7 Further Topics on Inner and Outer Products 


Illustration : Sequences of Inner Products 


In APL2 operands may be either derived or user-defined functions, so that 
expressions such as +,х. - which were invalid in first-generation APL now have 
meaning, e.g. 


1 2*.x.-3 4 (a) 
4 


1 285..-)3 4 (b) 
4 


To evaluate these apply the binding rules first (see Section 5.2) to work out the 
order in which the operators are applied and then consider the structure rules as 
the first step towards evaluating the detailed results. 

Looking in detail at (a), the binding rules, or equivalently the rule that opera- 
tors have long left scope, show that the derived function of the the leftmost 
inner product becomes the left operand of the rightmost inner product and so 
the final derived function is (+.x).-. The first-generation APL rule suggests 
an answer 


(00/0123), (2-4) +» (0/72 72 ++ а 
Under the APL2 rule the first step is to obtain the outer product 
DISPLAY (c1 2)*.-c3 4 


p———— | 


| 
l 
| 
1—1 


Then apply +.x/ within each cell to obtain 
DISPLAY +.x/"(e1 2)4.-c3 4 


4 


The APL2 rule thus follows first-generation intuition in this case, the difference 
being that for correct evaluation it is necessary to think of enclose and each, 
even although neither was present in the original expression. 


In (b), following first-generation APL intuition, one might suppose that the 
derived function x.- was applied first between two pairs of scalars and so 
should be equivalent to -, since if the arguments of an inner product P.Q are 
scalars then the function P plays no part, i.e. P.Q is equivalent to Q. This rea- 
soning would lead to a final result 


1 2+.-3 4 
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namely ^4. Correct application of the APL2 rules, however, leads to an initial 
outer product 


DISPLAY (c1 2)*.(x.-)c3 4 
4 


which by the shape rule for the outer product is a scalar, and so it is the +, not 
the x, which is the null function. First-generation APL intuition is thus mis- 
leading in this case. 


Mlustration : Inner Products with Nesting 
This illustration is a discussion of the differences between a pair of expressions 
which might at first sight look as if they should give the same results. They are 
(c1 2)+.хєЗ 4and +.х/(=1 2),=3 4 
To evaluate 
(e1 2)+.хєз 4 (a1) 


start with the shape rule which requires that the final result is a scalar. Steps 1 
and 2 lead to: 


DISPLAY (cc1 2)*.xcc3 4 


which is too deep for +/ to have an effect at Step 3. The final result is therefore 
DISPLAY s/^(cc1 2)*,xec3 4 


On the other hand consider 


+.x/(e1 20,03 а (a2) 
11 


The rank гше for reduction (see Section 5.5.1) shows that this must be a scalar, 
namely 
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(c1 2)5.x"e3 4 
TE 


(al) and (a2) are thus not equivalent. 


Illustration : Displacement Vectors 


Let B defined as 


Be2 2e(0 10(2 0)(1 0310 2) 
DISPLAY B 


| 


10 11 12 08 


T 
[ 
[ 


| 


be considered as a matrix of displacement vectors in two dimensional space (or 
forces, velocities, etc.) so that B is 

M! v2 

oi Wz 
and v; is (0,1), v2 is (2,0) and so on. Then 21 2+, хв gives (vj + 2wj)(v5 + 2w) 
and »(c1 2)*.xB) gives (vi wj')(v3 + Wo’) where v'; and v^? represent v, 
and у; with x- and y- "stretch factors” 1 and 2 respectively applied to each dis- 
placement. 

Consider first 


DISPLAY 1 2*.xB 


The result is clearly (1xB(1;]) + (2xB(2:]) , but why are the vectors 
doubly enclosed? To find out, follow the three steps for evaluating inner pro- 
ducts in detail: 


Step 1: 
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DISPLAY c[1]B 


|ope————À vo — 1 
Phe em il зона c0! 

tI loa тору 12 01 10 21 1 1 
py bod Lg; le ы | 
р 0—1 —]——2 | 
ПОЕНА 


Step 2: 
DISPLAY (c1 20*.xc[1]B 


| 
| 


p 
L 
r 
L 
= 
L 
r 
L 


! 1 
Ii emiles!!! 
LEIZARRA 
Poy Le pp ета 
| 0—1 ма | 
L, 


Next consider (c1 2)+.xB . 


Steps 1 and 2: form outer product (cc1 2)+.xe{1]B whose two items are 
DISPLAY" ( (c1 2)x12c[1]B)(Cc1 2)x22c[1JB) 


beams! iro r1 
I 1021 17 Of | | I2 OI IO 4l I 
ел LL qo op Lo uL | 
Le d: de 1 
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Step 3: apply +/ to each of these 2 cells, or equivalently +/” to the entire outer 


product to give the final result 
DISPLAY (c1 2)*.xB 


This result can also be written (c(c1 2)xBC13]) 


(c(c1 2)xB[2;]). 
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Illustration : Outer and Inner Products with Explicit Each 


What are: 
(c1 2) x" c3 4 (a) 
(c1 2) *.x7 c3 4 (5) 
(61 2) 8, OC) c3 4 (c) 
(c1 2) *.x" B (d) 


where B«2 29(0 1) (2 O)(1 0) (0 2) as in the previous illustration? 


In (a) and (c) the pervasiveness of x means that the each has no effect. 
DISPLAY (c1 2)x"e3 4 


In (b) however the operand of each is •.х which is not a pervasive function. 
The outer product shape rule forces the final enclosure which is necessary to 
make the result a scalar 


DISPLAY (c1 2)*.x^c3 4 


In (d) each applies to the derived function +.x and effectively cancels one level 
of enclosure: 
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DISPLAY B 
ee oe e 


p 
lo 11 12 01 
Шш бш 


pt 
10 21 
Led ua 


E ——————À 
DISPLAY (ct 2)0*.x^B 


pec. 
o 


pe 
*2 21 
11 4l 
ш 


This result is the same as 1 2+.x>([1]B for which the steps are: 


2118 
02 
10 
10 
02 

1 25.x2012B 
22 
14 


Illustration : Sequences of Inner Products with Nesting 


The next two examples demonstrate inner products where one operand is a 
derived function, and one or both arguments is a nested array. 


DISPLAY (c1 2)*.*.xB 


eo 
13 61 
1 


Step 1: the enclosure along the last axis of L gives (ec1 2), that along the first 
axis of B gives a two-item vector: 


DISPLAY c[1]B 


ге 1 г» 1! 
l em Ppa II em [eíl 
I 1011 1101 1 1 1201 10 21 I I 
гБ LI qq d LI 
lec lec | 


Step 2: form the outer product which the shape rule requires to be a two-item 
vector: 
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DISPLAY (cc1 2)*,.xc[1]B 


> $$ 
pe pe 
he гл pt. едг} 
10 21 4 


The two items of this outer product are : 
DISPLAY"((c1 2)x12c[1]B)((c1 2)x2əc[1]B) 


[ sarmon Ж еше US 1 
1 10 21 $1 Of 1 1 1201 10 4] I 
| em Ep p ei Dh] 
Le "EM Ea ——À 


the derived function +.+ is applied separately to these items: 
DISPLAY(*.*/(c1 2)х1эє[11В)(+.+/(<1 2)x22¢[1]B) 

pt 

13 61 

1—1 

or equivalently +. +" is applied to the entire outer product: 


DISPLAY *.*/^(cc1 2)*.xc[1]B 


(pace | 
13 61 
[жш 


The next example differs from the previous one only in the order of execution of 
the two inner-product operators, and shows what a large difference this can 
make: 


DISPLAY (c1 2)*.((*.x)B 


І | 
ito |I ets 
MEN LM li!l 
ТЕЛЛЕ ДЕ ЕТЕ E 1325] 00 | 
Prop bet prep 6— 111 
tp 6—1 I| | 0—1 || 
1 be tc | 
t 


Again, here is a step by step analysis. First construct the outer product (step 2) : 
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DISPLAY (cc1 2)•,(+,х)є=[1]В 


r* 1 
U e р; 
LI L—— iI 0L—3À11 
Liles lilli psa 11 
ELI 2101911412561 [1 
ат t6— gp rrr ais 
її bec i | 0—1 || 
0—1 le—______ | 


The shape rule shows that this is a two-item vector, whose two items are 
DISPLAY (c1 2)*.x12c[1]B 


Apply */ to each item separately: 
DISPLAY */(c1 2)*.x12c[1]B 


or equivalently apply */" to the vector: 
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DISPLAY */^(cc1 2)+.(+.х)<[11В 


І І 
Поа 110—311 
ра Та 111 
ТЕТТЕ Т2 арт 
кїт ш 11—11 
|| 060—1 | | 0—1 11 
I lec lec | 
L 


It is rather hard to conceive what the writer of either of the expressions {a) or 
(b) might be doing from the application point of view. Nevertheless they demon- 
strate the care which must be taken in applying rules precisely when coding and 
evaluating inner products. 


The key message from the above illustrations is that no matter how complex is 
an expression which involves inner and outer products its exact meaning and 
value can be deduced by careful application of the relevant rules. 


5.5.7.1 Inner Product and Scan 


There are relationships between scan and inner product in which the four 
functions ^ x 2 and ж play the role of auxiliary functions and triangular 
binary matrices form the inner product right argument. For example: 


ÜD*UTM«(15)*. 515 


4 33 11 
з 2:379 
001411 
00011 
00001 
+\15 


13 6 10 15 
(15). xUTM 
13 6 10 15 


х\15 
12 6 24 120 
(15) x, UTM 
1 2 6 24 120 


More generally, the relation to be satisfied is 
F\A ++ A F.aux UTM 


where A is an a numeric array, UTM is the upper triangular matrix of appro- 
priate shape with 15 on and above the leading diagonal and aux is the appro- 
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priate auxiliary function. The relationship holds for the combinations indicated 
by the entries y in the tables below: 


aux. aux. 
^ x > к 
ғ Y Y = Y Y 
> Y У 2 Y Y 
F v У $ F A y Y 
* У х y Y 
= y + Y 
* y У 


5.5.7.2 Decode/Encode and Inner/Outer Products 


Decode and encode share with derived functions the property that they combine 
the actions of simpler functions, + and x in the case of decode, | and + in the 
case of encode. In some special cases there are simple equivalences between 
decode/encode and inner/outer products, for example a polynomial such as 
x?+4x+3 can be evaluated at x —2 either as 


(242 1 0)+.х1 4 73 
or as 
211 4 73 
and 13 can be expressed as a binary number either as 
21L13*.3243 2 1 0 
or as 
(402)T13 


More interestingly the shape rules for decode and encode are identical to those 
for inner and outer products, and the steps for evaluating the inner product of 
two matrices (see Section 5.5.6) are identical to the first two steps for evaluating 
an inner product. 


Mlustratioi lecode and encode for arrays 


Suppose that 


(L R)*V53«(2 300 3 12 10 10 100(3 2015 2 1 7 3) 
DISPLAY"L R 


га f 
+ 0 3 121 «1 5I 
110 10 10] 12 41 
Lu 1 


17 31 
„— 
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The shape rule gives the shape of L1R as 2 by 2. The steps for evaluating LiR 
аге: 


Step 1 : Enclose L and R along inner matching axes. 
Step 2 : Perform 1 outer product. 


LIR 
67 195 
127 513 


which is the same as (<(2]L)+*.1¢[1)R. 


With encode the situation is a little more complex. Consider (&L)T,LiR. The 
shape rule gives the shape of the result as 3 2 4 and the values are: 


(QL) 167 195 127 513 


153 14 
011 5 
211 0 
692 1 
?*7 9 
757 3 


The first columns of the result: 
10C3J(8L)767 195 127 513 


give the separate encodings of 67 with respect to O 3 12 and 10 10 10, the 
second columns the encodings of 195 and so on, while the first and second rows: 


1002](QL)T67 195 127 513 
53 14 
11 0 
37 $ 

20[L2)(8L)767 195 127 513 
9 43 2 5 
6921 
7573 


NN 


give in their columns the set of codes corresponding to the encoding vectors 
о з 12and 10 10 10 respectively. 

To reverse the operation LiR in the sense of recovering R from each of the 
two decodings use: 


CcE2JL)T^cC 2]LiR 
15 15 
21 21 
73 73 
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Exercises 5d 


1. PROD is a vector of vectors in which alphanumeric characters represent ser- 
vices offered by a set of producers. CONS is another vector of vectors describing 
the various services required by a set of consumers. For example 


PROD+'ABC' 'BDF' 'AC* 'ABCEF' 
CONS«'AB* 'BF' ‘ABCD’ 


defines the capabilities of four producers and the requirements of three con- 
sumers with regard to a set of six services. 


a. Write an expression to give an incidence matrix which records which pro- 
ducers can completely supply each consumers requirements, eg. for the data 
above the resulting matrix would be 


1001 
0101 
0000 


Amend your code to return a vector of vectors, each of which gives the indices 
of those producers who can completely satisfy a consumer's requirements, eg. 
(1 4)(2 4) (10) in the case above. 


b. Repeat the above with “partially” replacing “completely” so that the result 
for the given data is for the data above the resulting matrix would be 


111 
110 
111 


2. a. What does the following phrase do 
*/"(910 10)*.7120 ? 
b. Why does 
(610 10) +.т120 


give a DOMAIN ERROR? 
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5.6 Applications of User-Defined Operators 


5.6.1 Control Structures 


The following subsections illustrate how to achieve some traditional control 
structures of computer science such as only, unless, upto and until. The opera- 
tors ONLY, UNLESS and UPTO provide control based on arguments, whereas 
RPTUNTIL and DOUNTIL give control via successive results, either with or 
without feedback. 


5.6.1.1 ONLY 


The object of this operator is to execute a function P on the argument L but 
ONLY on the item which is determined by the index given by Q. 


сој Z«L(P ONLY QR a Pis a function, Q is an index 
[11 ZeL 
С1] (002)+(0020Р R 


lilustration : 


lective function application 


Actions are performed only on array item with a given index. 


fo 
L 
№ 
E 


5.6.1.2 UNLESS 


The operator UNLESS applies a function P to its argument or arguments 
unless a predicate Q is true in which case the right argument is returned. 


tol Z«L(P UNLESS Q)R ^ P is a function, Q is a predicate 
[1] +0 IF Q Z-R ^ exit if predicate true 

[2] +L1 IF OsÜNC 'L' a branch if dyadic derived function 
[31 +0 ZecP R a monadic case 

[4] L1:ZecL P R a dyadic case 


A simple predicate is SOMECHAR: 
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[0]  Z«SOMECHAR R a returns | if some character items in R 
11 2+* 'ee*OpcR 


Applying UNLESS with each allows Р to be applied to each item of an array but 
ignoring any items which satisfy the predicate Q. 


V54«(13) (4 5)(c'FRED')(7 6) 


2+UNLESS SOMECHAR” V54 
345 67 FRED 98 
AUNLESS SOMECHAR^V54 
123 12 FRED 21 


The binding rules of Section 5.2 show that the operand Q is tightly bound to 
UNLESS as the parentheses in the header line suggest visually, that is in the 
expression 2+UNLESS SOMECHAR^V it is «UNLESS SOMECHAR to which each is 
applied and not SOMECHAR. 


Mlustration : Selective Processing 


Define a nested array containing items of mixed type: 


V55«(1 2.5 'XYZ')(C'ABC' 3 12) 
DISPLAY V55 


rt d 
12.5 IXYZI | 


Take the expression 1«V55 and modify it to exclude character items: 


1*UNLESS SOMECHAR'"'"V55 
2 3.5 XYZ ABC 4 13 


UNLESS can be applied more than once in the same expression: 


1(*UNLESS SMALL^")UNLESS SOMECHAR"V55 
1 2.5 XYZ ABC 3 13 


[0]  Z«SMALL R ^ returns | if first item is less than 5 
[11  Z«5»*R 


Explicit parentheses can be used to underline the way in which the two 
UNLESSS are nested. 


1¢(+UNLESS SMALL)" UNLESS SOMECHAR)"^V55 
1 2.5 XYZ ABC 3 12 


In this example the SOMECHAR selection must be applied before the SMALL 
selection, otherwise the result would be a DOMAIN ERROR. 
Here is a further example in which only integers are selected: 
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1*UNLESS FRACTNL" UNLESS SOMECHAR"^V55 
2 2.5 XYZ 


co] Z«FRACTNL R a returns | if R non-integral 
[12 Z+RÆLR 


5.6.1.3 UPTO 


A variation on UNLESS" is to stop processing when the predicate is satisfied 
rather than skipping an item. A recursive operator to describe this is UPTO. 


[02 Z«L(P UPTO QR a P is a function, Q is a predicate 
E11 *LO IF Q^R a Stop when condition reached 

t21 +L2 IF OZÜNC'L" ^ branch if dyadic derived function 
(3] Li: a monadic case 

Са] +0 Z+CePtR),(P UPTO Q)14R 

[5] L2: a dyadic case 


[6] +0 Ze(cL P4R),LCP UPTO Q)14R 
[7] 10:2+10 


v54<(13)(4 5)(c*FRED')(7 6) 


2+UPTO SOMECHAR V54 


345 67 
UPTO SOMECHAR V54 
123 12 


The operator UPTO has the general structure 


гој  Z«L(P OPR QR 
[1] +00 IF... 

[2] +02 IF O£DNC'L' 
[33 +0 2+... 

Са] 12:+0 Ze... 

[51 LO:Ze... 


stopping condition 

branch if dyadic derived function 
monadic recursion 

dyadic recursion 

stopping action 


UPTO can be abbreviated to two lines by defining a function 


со) Z«LEX 
[11 2+'1,* IF O£DNC'L* 


and using execute: 


co] Z«L(P UPTO Q)R т P is a function Q a predicate 
[11 +0 IF QtZ+R a Stopping action 
[2] 2+а' (=',ГЕХ,' P^R),',LEX,'(P UPTO Q)I4R' a recursion 


While this has some appeal in packing all the recursive action into one line, 
many APL programmers would balk at the obscurity of the code necessary to 
do so and would opt for the previous form which also runs faster on account of 
the inherent inefficiency of using execute (+). 
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A variation on UPTO is to specify a stopping item rather than a predicate. 
This can be accommodated by a ONC test on Q on entering the function: 


Loi Z+L(P Upto Q)R ^ Pisa function 

[13 +L01 IF З=0ҸС 'Q* branch if Q is a predicate 
[2] +(L1 IF Qz4R),L02 stop condition if value 
[3] 101:+11 IF Q^R stop condition if predicate 
Са] L02:*L2 IF OXUNC'L' branch if dyadic 

(52 *0 Z«(cP^R),(P. Upto Q)14+R monadic recursion 

[6] L2:+0 Ze(cL P*R),L(P Upto 0) 1+6 dyadic recursion 

[71 Li:Zei0 stopping action 


»»5525523 


V544(13)¢4 5) CC! FRED! )(7 6) 


2*Upto SOMECHAR V54 
345 67 

2+Upto(4 5) VS4 
345 


A programmer intent on shortening code by using execute might write: 


tol Z«LCP Upto Q)R a Pisa function 
[1] e'+0 IF Q ',(*s* IF 3#DNC'Q'),*4R',Z+10 я stopping action 
121 Zee'(c',LEX,* РАВ), ',ГЕХ,*(Р Upto Q)1:4R'a recursion 


5.6.1.4 UNTIL 


Instead of applying 2 function Р repeatedly to items in the data as in the case of 
UNLESS and UPTO (or its variants) it is often desirable to carry on executing P 
to the entire data until some specified circumstance arises. This may or may not 
involve feedback of the result (cf. the distinction between POWER1 and POWER2 
in Exercise 5b). Two further distinctions can be made, first is the function 
monadic or dyadic, and secondly is the test on a predicate or a value. The no 
feedback case is dealt with by the operator DOUNTIL, and feedback by the oper- 
ator RPTUNTIL. 

A simple way to develop DOUNTIL is to program the monadic case where the 
test is on a stopping value: 


[0]  Z«L(P DOUNTIL Q)RiT 
[12 Ze'* 

[2] +0 IF Q=T+P R 

[3]  Z«(cT),P DOUNTIL QR 


?DOUNTIL 3 6 a throw a die until a three shows 
5215245 


The above example is a further illustration of the application of the binding rules 
(see Section 5.2). The binding between DOUNTIL and 3 (right operand binding) 
is stronger than that between 3 and 6 (vector item binding). 

Now extend DOUNTIL to deal with the options of dyadic derived function and 
predicate: 
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[0]  Z«L(P DOUNTIL Q)R;T ^ Pis a function, Q is a test 
C12 2+'' 

C2) +LO IF O#QNC ‘L* 

[3] +L01 T-P R 

[4] LOsT+L P R 


[5] LO1:9L1 IF 3#0NC 'Q* a needs match if Q not predicate 
[61 *0 IF QT 
[7] *L11 


Са] L1:*0 IF 027 

(9] L11:9L2 IF OXDNC 'L' 

[10] +0 Ze(cT), (P. DOUNTIL Q)R 
[11] L2:Z«(cT),LCP. DOUNTIL Q)R 


col Z+L ROLL R 
C13 Z«?LoR 


Lo) Z*ALIKE R 
[11 Z*a/R=4R 


2 ROLL DOUNTIL ALIKE 6 ^ throw a pair of dice until 
65 52 24 63 ^ a double appears 


For the purposes of copy-typing the condensed form using execute (е) is often 
more useful: 


CO]  Z«L(P DOUNTIL Q)R;T 

С12 T*sLEX,' P R',Ze'" 

[2]  s'90 IF Q ',(*=' IF 320NC! Q2," T7 
C32 Ze(cT),aLEX,'(P DOUNTIL Q)R* 


The function RPTUNTIL is developed in the same way, that is, first by defining 
one case, e.g. where the function P is dyadic and Q is a predicate: 


Col Z«L(OP RPTUNTIL Q)R 
[1] +0 IF Q ZR 
[2]  Z«L(P RPTUNTIL QL P R* 


and then generalizing it to cover the other cases by using e: 


Co} Z«L(P RPTUNTIL Q)R a P is a function, Q is a test 
[12 a'+O IF Q ',('z' IF 320NC'Q*),'ZeR* 


[21 Z*sLEX,'(P RPTUNTIL Q)',.LEX,' P R* 


[0]  Z*SMALL R a returns | if first item less than 5 
C1) Ze5»*R 


2*RPTUNTIL SMALL 0113 
.5xRPTUNTIL SMALL 999 


'X',RPTUNTIL 'xxxx' '' 
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Illustration : Repetitive Prompts 


The simplest way of combining N separate input strings from a terminal into an 
N-item vector is 


2"No'D* 


Entry of multiple input lines is usually associated with prompts and a simple 
function which provides these is 


со? Z«ASK R 
C1] R 
C2) 2+(o,R+0 


ASK 'NAME-* 
NAME-ALF 
ALF 


ASK can be used with each to obtain answers to an ordered succession of 
prompts: 


ASK^'NAME-' 'NO-* 
NAMESALF 
NO=49 
ALF 49 


Now define a function NULL (that is null line) for use as a stopping condition: 


[0] Z*NULL R 
[1]  Z«0epR 


and apply DOUNTIL to issue repeated prompts: 


ASK DOUNTIL NULL 'ENTER-* 
ENTER-A 
ENTER-BB 
ENTER-CDE 
ENTER- 
A BB CDE 


ASK DOUNTIL '99' ‘ENTER=' 


ENTER-99 
7 33 


The derived function ASK" can be used in conjunction with DOUNTIL to repeat 
chains of prompts until a complete cycle of null responses has been given: 
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ASK^DOUNTIL NULL 'NAME-' 'МО=' 


Illustration : Iterative solution of non-linear equations 


RPTUNTIL provides a method of solving by iteration equations which can be 
expressed in the form y=f(y) for which there is a convergent solution from the 
given start value. An example is y=cos(y) which was first discussed in 
Exercise 5b4c. EPS is a global variable which defines a stopping tolerance, e.g. 
:00001 in the present case. 


со] Z«COS X 
(11 2+20х 


[O]  Z-NEAR X 
[11 ^ n.b. function P is defined in RPTUNTIL 
[2]  Z«EPS»|X-P X 


COS RPTUNTIL NEAR 1 
0.73909 
For Newton-Raphson iteration define another two operators and a variable con- 
taining the step size: 


Сој 2+(Р NEWTON)X 
[13 Z«X-(P X):P DERIV X 


CO]  Z««P DERIV)X 
[13 Ze(CP. X+4X)-P Х)+АХ 


AX«.00005 
To solve the equation x(x-1) 72 define 


Со] Z«FX 
C13 Z«2-XxX-1 


The roots to which the Newton-Raphson process converges for different starting 
values are then given by: 


(F NEWTONDRPTUNTIL NEAR 1 
2 

(F NEWTON) RPTUNTIL NEAR 71.2 
Е: 
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lilustration : Non-linear function fitting 


The primitive function @ performs least squares fits of linear functions. With 
only a modest amount of programming it can also be used to fit a much wider 
range of non-linear functions as the present illustration shows. Suppose that it is 
required to fit a function of the form 


y=a+b.exp(-cx) 


to the data 
X*V56 

0123456789 10 11 12 13 14 15 16 17 18 19 
Yev57 


4.745 4.6532 4.6036 4,0066 4.0864 4.5687 3.806 3.1908 
3.0976 3.6759 3.8764 3.4329 4,1062 3.0066 2.6309 
3.6943 3.2929 2.4183 3.4453 3.1949 


Define the function FN in which С stands for coefficients: 

Со] Zc FN X 

[11 Z«CL1]14C[27x«-C[ 3]1xX 

Partial derivatives with regard to the coefficients are estimated by defining an 
Operator: 


tol Z«C(F PDERIV X)N;T 


C1] s N is index of coefficient whose partial derivative is required 
[2] 2+((‹С+ТхМ=їөС)Е X)-C F X)4T«AX3[N] 


Intervals can be defined for each coefficient separately as the rightmost part of 
the above function line implies: 


4X3 
0.00001 0.00001 0.00001 


Fitting is carried out using domino: 
[0] 2+Х(Е FIT WC 
[1] Z«C«(Y-C F X)B2[13CeC)(F. PDERIV X)"ioC 
Make a first guess at the coefficients: 
Со+з 4 4 


and then run the function FIT: 


X FN FIT Y CO 
3.2267 1.4653 0.21462 


Now use RPTUNTIL to iterate towards a solution with prescribed accuracy. A 
stopping criterion might be that all the coefficients are within EPS of the pre- 
vious iteration. This is described by the function ALLNEAR which uses the P and 
L of RPTUNTIL: 
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[O] Z*ALLNEAR C 
[1] a n.b. function P and argument L are defined in RPTUNTIL 
[2] Z*a/EPS>|C-C P L 


EPS 
0.00001 


A small amendment must be made to FIT: 


[01 Z+A(F Fit YOB 
C1 Z«R*(Y-R F L)§201}(cR)(F PDERIV Г) `1рК 


which now has dummy arguments A and B since it is the derived function 
(F Fit Y) which is the left operand of RPTUNTIL and L and R are the argu- 
ments of RPTUNTIL. The iterated solution is: 


X FN Fit Y RPTUNTIL ALLNEAR 3 4 .4 
2.8907 1.9388 0.1186 


To obtain a trace of the steps towards convergence add 0+ at an appropriate 
point in RPTUNTIL: 


C2) Z*aLEX,'(P RPTUNTIL Q)U*',LEX,' РЕ" 


and rerun: 


X FN Fit Y RPTUNTIL ALLNEAR 3 4 .4 
3.2267 1.4653 0.21562 
3.0237 1.7732 0.077427 
3.0959 1.7285 0.12798 
2.8934 1.9353 0.11731 
2.8909 1.9387 0.11862 
2.8907 1.9388 0.1186 


To confirm the correctness of Fit define v so that the exact result is known in 
advance: 


Ye5*2x*-,2xX 
X FN Fit Y RPTUNTIL ALLNEAR 3 4 .4 
3 4 0.4 
5,1016 1.8463 0.2698 
5.0267 1.9624 0.18631 
5.0021 1.9973 0.20003 
520.2 


5.6.2 Conditional and Alternative Function Execution 


Operators are a natural mechanism for writing functions which avoid 
anticipatable APL errors. The first illustration below gives an operator which 
restricts function execution to selected parts of the data only. The second illus- 
tration gives a technique for providing alternative monadic functions. 
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Illustration : Data Filtering 


The operator UNLESS in Section 5.6.1.2 was used to to apply a left operand 
selectively. A disadvantage of this is that the predicate function may generate an 
error as in: 


V55«(1 2.5 'XYZ')(C'ABC' 3 12) 
DISPLAY V55 


pri —1 
1 p= ра 1! 
B4 coll p— tl 
1112.5 [XYZ] | | iABCI з 12 1 | 
гү „у eH pg 
| be———_——_J & | 
L J 


[01 Z+SMALL R 
C1] Z+5>tR 


1+UNLESS SMALL”VS5 
DOMAIN ERROR 
SMALL[1J 
C1] Z«5»^R 


A technique which overcomes this is to to apply compression to R in order that P 
be applied only to those items which satisfy a predicate Q such as NUM: 


[01  Z«NUM R a returns | if R entirely numeric 
[1] 2#2221(0 * ')ee*0pcR 


Next an operator FILTER is defined: 


roi Z*L(P FILTER Q)R;T a Pisa function, Q a predicate 
C11 ZetR((T/RI*L PCT*Q"R) /R) 


1+FILTER NUM""V5S 
2 3.5 XYZ ABC 3 13 

1(+FILTER SMALL'")FILTER NUM^"V55 
2 3.5 XYZ ABC 4 12 


Another possible filter function is INTEGRAL: 


Co] Z«INTEGRAL R a returns | if R is numeric and integral 
[13 Z«RzLR ^ n.b. must be match, = won't do! 


1(+FILTER INTEGRAL")FILTER NUM^"V55 
2 2.5 XYZ ABC 4 13 
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ШизітаНоп : The ELSE Operator 


It can sometimes be convenient to be able to provide alternative monadic func- 
tions depending on some user-defined condition which need not necessarily be 
error-producing. This facility is provided by the operator ELSE: 


[0]  Z«L(P ELSE Q)R һ P and Q are functions 
[1] +01 IF-L ^ Qis executed if L false 
[2] +0 Z+P R a otherwise P is executed 


[3] L1:Z+Q R 


(A#2) (#ELSE+)A*2 3 4 
234 

(A#2) (C4ELSE+) “A*2 3 4 
2 0.3333 0.25 


The rightmost sets of brackets are not necessary in the above : 


(A#2)4ELSE+"A*2 3 4 
2 0.3333 0.25 


but they help clarify the meaning. 


Exercises 5e 


1. Write an operator ONLYS which extends ONLY by recursion so that Q is a 
vector of indices, c.g. 


М+2 3016 

M+ONLYS((2 2)0(2 3)) 100 
1 2 3 
4 105 106 


2. a. Rewrite the operator TRACE of Section 5.3 using а and the function LEX. 


b. Extend the operator SIMPLE in Section 5.4 so that it deals with both 
monadic and dyadic derived functions, e.g. 


ASimple((9 5 6)(7 4))(8 5 3) 
should return the value (02 3 19€2 1))(3 2 1). 
3. Rewrite the dyadic composition operator COMP1 of Section 5.2.2 so that it 


deals with both monadic and dyadic derived functions, that is рСовр1р "T is 
equivalent to в" "Т, and 2єСошр1 є "Т is equivalent to 2e"e^T. 
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4. An alternative to the Newton-Raphson technique for finding a root of f(x) 20 
is known as the Secant method. The algorithm consists of starting with a pair of 
values хо and x; one on each side of the root, and identifying the co-ordinate, 
ху, of the point where the line joining the points (Xxq,f(xq)) and Gu.f(x))) crosses 
the x-axis. Take whichever of the intervals (хо,хз) and (x5,xj) contains the root, 
and repeat. Under suitable conditions хә will converge to the root. 


Using RPTUNTIL and NEAR write an operator analogous to NEWTON together 
with any requisite operators or functions so that 


F SECANT RPTUNTIL NEAR V 


where v is an appropriate two-item vector of co-ordinates, delivers the required 
root of F. 
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5.6.3 LEVEL 


In first-generation APL, the result of adding two vectors of equal length is 
unambiguous: 


1 2+1 3 
25 


Nesting allows two other possibilities for adding simple vectors. 


ta) 1 2 (b) 1 3 


| | і ! 
1—3 1——3 1—2 1—2 


Assume that ап operator LEVEL has been written to distinguish these cases: In 
(a) the vector 1 3 is nested (i.e. at level 1) and is added to each item of vector 
12: 
1 2*LEVEL(O 1)1 3 
24 35 


In (b) the vector 1 2 is nested (level 1) and added to each item of vector 1 3: 


1 2+LEVEL(1 0)1 3 
23 ^5 


The operator LEVEL might be written 


tol Z«LCP LEVEL Q)R a Pisa function, Q indicates depth 
[11 +L1 IF Os[NC'L' a branch if dyadic 

{21 +0 2+(Р MONLEV Q)R a P monadic 

C3] L1:Z+L(P DYALEV Q)R a P dyadic 


where MONLEV and DYALEV deal with the monadic and dyadic cases respec- 
tively. 

[02 Z«(P MONLEV Q)R a Qis a non-negative integer 

[1]  »L1 IF Q2=R 

[2] +0 Z+P MONLEV Q°R 

СЗ] Lt:+0 2+Р R 


In line 1 of DYALEV, the requested depths Q are compared with the actual 
depths of the arguments L and R - if either is lower a level of nesting is removed 
by each with, if necessary, an enclose of the other. 


сој Z«L(P DYALEV Q)R ^ Qa2-item vector of non-negative integers 
[17 *(210€«z27L R)CASE(O,LOO0)(1,L012(2,L10)(3,L11) 

[2] 100:+0 ZeL PR т depth reached for both L and R 
[3] 101:+0 Ze(cL)P DYALEV Q"R a depth reached for L but not R 
[4] 110:+0 Z«L P DYALEV Q"cR a depth reached for R but not L 
[5] L11:Z«L P DYALEV Q^R a depth reached for neither L nor R 


to] Z«L CASE R ^ Lis an expression, R a vector of 2-item. 
[11 Z*e(Lz^*7R)/22"R ^ vectors, each is (value of L, label) 
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The next two subsections use the same nested vector T. T is used as its name 


rather than V in order to emphasize that it is to be thought of as modelling a 
tree. 


«(C668 3)) (1 2) 


3 

DISPLAY T T level 3 
oo i 
[ree ra 1 г —— level 2 
II p— 10 211 i | 
116183] | 4+, | ————3À o level 1 
Ii Ge iol t | 
| be———4 1 6 8 — 3 1—2 level 0 
ÉL ———————À 


Since every subtree extends to level 0, it is necessary to insert extra levels in the 
case of non-uniform trees. 
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5.6.3.1 LEVEL with Monadic P 


In the following illustrations the function 9 is taken as P. 


DISPLAY OLEVEL ОТ 


DISPLAY OLEVEL 1 T 


DISPLAY OLEVEL 2 T 


DISPLAY $LEVEL 3 T 
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with Dyadic P 


5.6.3.2 LEVEL 


DISPLAY T 


DISPLAY 1 2*LEVEL(O O)T 


THE 


DISPLAY 1 2«LEVEL(1 


2T 


DISPLAY 1 2+LEVEL(1 


DISPLAY (c1 2)*LEVEL(O 1T 
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DISPLAY (c1 2)+LEVEL(2 2)T 


DISPLAY 1 2+LEVEL(1 OT 


DISPLAY 1 2*LEVEL(O 3)T 


DISPLAY (c1 2)*LEVEL(O 2)T 


Exercises 5f 


The following exercises assume that a пате is a vector of character vectors, e.g. 


‘LAMB’ 


'ANTHONY* 


NAME+' JAMES" 


and that NAMES is a vector of cight names, viz: 
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2NAMES 
JAMES ANTHONY LAMB 
HUGH WILLIAM JONES 
FRED SMITH 
ARTHUR WILLIAM DALY 
HAMISH MCGREGOR 
ANDREW DAVID WILLIAM MASON 
SEAN EWAN MCTAVISH 
ANDREW WILLIAM MASON 


l. For a single name, e.g. NAME define a function SHORTEN which replaces the 
forenames with a vector of initials so that the name becomes a two-item vector 
eg. 


SHORTEN NAME 
JA LAMB 


2. Define a predicate ISW2 which returns 1 if the second name is WILLIAM and 
another predicate SCOTCH which returns 1 if the first two characters of the 
surname are MC. 


3. Print a matrix with one row per name which contains everyone's names 
except those whose second name is WILLIAM. 


4. Print a similar matrix of names in which all except Scotsmen have their fore- 
names abbreviated to their initials. 


5. Define a function LENGTHEN to allow the printing of a matrix of everyone's 
names in which Scotsmen have the first two characters of their surnames 
replaced by MAC. 


6. Print a matrix of names with one row per name in which all surnames are 
aligned. 
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Summary of Functions used in Chapter 5 


Section 5.2 

нтр convert hexadecimal to decimal 

DTH convert decimal to hexadecimal 

Exercises 5a 

FROMDEC convert to decimal from arbitrary number base 
TODEC convert to arbitrary number base from decimal 
Section 5.4 

PATH find path to given item in a vector 
ENLIST selective enlist 

Exercises Sb 

PRODUCT description of x/ 

JOIN description of ./ 

CHALL change all occurrences 

CODIFY encrypt a character string 

MEAN mean of a numeric vector 

MEDIAN median of a numeric vector 

Section 5.5.3 

SPIRAL co-ordinates of spiral in Euclidean plane 
Section 5.5.4 

EXPAND function form of expand operator 

Section 5.5.6 

AD absolute difference 

GRAD gradient of line in Euclidean co-ordinates 
MIDPT midpoint of line in Euclidean co-ordinates 


Exercises Sc 


SUBMAT returns all submatrices of a given shape in matrix 
PATIN matches a binary pattern in a binary matrix 

Section 5.6.1.2 

SOMECHAR returns 1 if some character items in right argument 
FRACTNL returns 1 if right argument non-integral 

Section 5.6.1.3 

LEX auxiliary function for writing ambi-valent operators 
Section 5.6.1.4 

ALIKE returns 1 if all items in vector equal 

ASK returns answer following prompt 


NULL predicate is-null-vector 
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cos 
NEAR 
ALLNEAR 
NUM 


Section 5.6.2 
INTEGRAL 
DECODE 


Section 5.6.3 
CASE 


Exercises 5f 
SHORTEN 
Isw2 
SCOTCH 
LENGTHEN 
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cosine 

auxiliary function to provide stop for operator RPTUNTIL 
generalization of function NEAR 

returns 1 if all items in array numeric 


returns | if array numeric and all items integers 
deciphers an encrypted character string 


case statement 


replaces names with initials 
predicate is-second-name WILLIAM 
predicate is-first-two-characters MC 
replaces MC with MAC 
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Summary of User-defined Operators in Chapter 5 


Section 5.1 
COM 

SEE 
ALONG 
TABLE 


Section 5.2 
RED 
LRED 
HEX 
HEXE 
NEXT 
CONSEC 


Exercises 5a 
BASE 
ROOTOP 


Section 5.3 
COMP1 
COMP2 
TRACE 


Section 5.4 
SIMPLE 


Exercises 5b 
POWER1 
POWER2 
POLISH 


Section 5.5 
UNSCAN 
UNDO 


Section 5.6 
ONLY 
ONLYS 
UNLESS 
UPTO 
DOUNTIL 
RPTUNTIL 
NEWTON 
DERIV 


commutes arguments 

dynamic trace (monadic functions) 
progresses functions left to right 
outer product of vector with itself 


reduction along axis 

reduction from left along axis 
hexadecimal arithmetic 

HEX each 

joins matrices of non-compatible shapes 
indices of start points of sequences 


arithmetic in arbitrary base 
pth. root 


function composition :L P Q R 
function composition: P L Q R 
dynamic trace (ambi-valent functions) 


makes non-pervasive functions penetrate to simple items 


function to the power : (L P) repeated Q times starting with R 
function to the power : (Р R) repeated Q times starting with L 
polishes a matrix by subtracting from rows and columns 


reverses scan using R P L 
reverses scan using L P R 


function executed only for given index 

function executed only for given indices 

function applied to items unless they satisfy predicate 
function applied item by item until value found in argument 
function applied without feedback 

function applied with feedback 

root-finding by Newton-Raphson iteration 

derivative of function 
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PDERIV 
FIT 
FILTER 
ELSE 
LEVEL 
MONLEV 
DYALEV 


partial derivatives of function coefficients 

operator for fitting non-linear functions 

processes data only if predicate true 

alternative monadic functions dependent on user condition 
applies function at given depth levels of argument(s) 
monadic case of LEVEL 

dyadic case of LEVEL 


6 
Advanced Modelling and Data Structures 


Chapter 3 interrupted the discussion of APL features in order to give some 
simple applications in which nested arrays prove their worth. This chapter per- 
forms a similar role, but the applications are now typical problems which arise 
in Operational Research and involve more sophisticated uses of the techniques 
of the previous chapters. The problem situations involved are designed to illus- 
trate how some commonly occurring data structures can be modelled in APL2, 
and how APL2 programs can be built round them in a systematic fashion. 


6.1 Trees Without Keys 


There are many different ways to build tree-like data structures of which three 
will be discussed in the first three sections of this chapter. The simplest sort of 
tree is a hierarchical one in which nested arrays are used to model subordinate 
relationships, e.g. the organization of a department: 


ar 


ABLE i rr 


GAS 


DEAD EASY 


is described by the following nested array: 
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HT«'BOSS'('ABLE' 'CLOT'('DEAD' 'EASY') 'FOP'(c'GAS')) 


DISPLAY HT 
rh 1 
1 m 1 
| 1BOSSI | pe soar or 1 1 
| U— | [aABLE! ICLOT| | p*——, p—3À | IFOPI | p+ [| | 106 
| | U—1 L——— | |рЕАр| |EASY| | — | IGASI | | | 
| ! | — L—dÀ | postin 
l І be—_____—__ Le— 1 | 
{ её ——À | 
Le === 


Notice that it is necessary to enclose the character string when a member has 
only one subordinate. 
A straightforward enlist is of little value ... 


єнт 
BOSSABLECLOTDEADEASYFOPGAS 


.. however the selective enlist function defined in Section 5.4 can give us ап 
overall namelist ... 


col Z+L ENLIST R 

Ct] *L' IF L2=R 

C2] +0 Z+t,/L ENLIST^R 
[3] LtsZ+cR 


DISPLAY 1 ENLIST HT 


|ABLE| |CLOT| |DEAD| |EASY| |FOP! IGASI | 


2 Or Select members at either of the top two levels: 
DISPLAY 2 ENLIST HT 


E. prd pem or 9 el 
i 180551 IABLE| ICLOT| | реу г»— | IFOP! 1 реу | | 
tou L L——— | |DEAD| 1ЕАЅҮ| | — | IGASI | | 
t | e LL t w || 
| 1—5 t—— 1 
L, 


6.2 Trees with Keys 


Another way in which a tree structure can be used to store data in a way which 
reflects its internal relationships involves using keys. 

Suppose a hierarchical data set is structured as shown in the diagram below 
in which numbers represent keys, “*” represents a subtree which is expanded at 
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the next lower level and letters of the alphabet represent data which might in 
practice be very large. 


10 E Hu FIG 


A tree is thus a vector with an even number of items - odd numbered items are 
the unique numeric keys, even numbered items are either subtrees or data items. 
The functions to be discussed concern the structure of and navigation through 
trees and are entirely independent of the data which the trees are used to store. 
The tree sketched above could be modelled as 


TREE*1(2(5'B*6C10' E*)7*C* )3(8'D* 9(11*F* 12'G* )) 4" A* ) 


lt is worth spending a few moments to accustom oneself to the relationship 
between the drawn form of the tree and the DISPLAYed version: 


DISPLAY TREE 


j! І 
rat ne | 09—41 i 
l 121 eo 131! rea HFA A 
|o d gd'SBé6|!OEI7C]| 1!8Dn9]1F32GI | - 11 
1 I І С by zl 1 - L— 1 tt 
I I lec eeo Ft 
Ж 11 


Consider the problem of finding the path to a given key L. The nature of this 
tree structure guarantees that it is not necessary to provide for “level-breakers” 
(i.e. empty vectors - see Section 1.3.1). If it is further assumed that L must be 
present in R and that the key values do not occur in the data then the initial 
PATH algorithm of Section 5.4 is sufficient. 
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[oJ 
[11 
C2) 
[3] 
[41 


22 
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Z+L PATH R;T a La numeric scalar, R a tree 
+11 IF 1528 ^ branch if R nested 
+0 2+10 
LisTe(Le"e“R)11 ^ identify subtree T at current depth .. 
Z«T,L PATH Тэк a .. then find path within subtree T 
7 PATH TREE 
5 


Several paths may be found in one action: 


DISPLAY (8 9 10)PATH'cTREE 


ee _—— 


r 


Lea ftm, ге: 4 
i 12 
[o oin] 
L 


44111243) [22441 | 
LI, 


E ———M———————————À 


The function PATH is the inverse of pick: 
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(8 9 10 PATH^cTREE)2"cTREE 
10 


6.2.1 Finding Ancestors 


Define the ancestors of a key as those keys which precede it in a path. For a 
given Key L the function ANCIN (short for “Ancestor in") which has a very 
similar structure to PATH provides a trace of all ancestors from a given key. 


CO] 2+1 ANCIN В;Т 
[1]  *L1 IF-LeR 
[2] +0 2*10 
[3] L1:T*(De^e"R)11 a identify subtree T at current depth .. 
[4]  ZeRUT-1),L ANCIN TƏR a . then find ancestor within subtree T 
8 ANCIN TREE 
13 
10 ANCIN TREE 
126 
DISPLAY (i10)ANCIN"cTREE 
г” —À 
FE qe pep ptr ip PIETAS ооо oa rmm ! 
| dot 121 13H 131 da 21 11 20611 21 11 ЗІ 1131 112 61 1 
Pb LJ bd bd bo шы шыл шм ымы 14 
L J 


€ 
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6.2.2 Subtrees 


A subtree can be defined as the portion of a tree which is identified by a key. A 
subtree is therefore completely determined by the path to its key. Adding one to 
the lowest order item of the path produced by the PATH function yields the path 
to the subtree itself. The function STPATH produces the path to the subtree: 


Col Z«L STPATH R 
[13 Ze(C-oZ) $1) «ZeL. PATH R 


from which the subtree itself may be obtained using pick: 
Сој 2+1 SUBT R 

[1]  Z«(L STPATH R)>R 

Hence subtrees can be exhibited: 


DISPLAY 2 SUBT TREE 


preme —— 
1 eo 1 
1 5В6 110 Е| 7C I 
t о - bed á -| 
е 


DISPLAY 9 SUBT TREE 


TL 
111 F 12 GI 
——— | 


6.2.3 Eliminating and Swapping Subtrees 


The function CUTFROM removes the subtree associated with key L. 


[o3 Z«L CUTFROM R 
[13 Z+4R((L STPATH R)2R)*ciO 


DISPLAY 2 CUTFROM TREE 


т 


p 1 
Ie 6 41! 
111 1 ПҸ] 14 
I b2tei3t 9—1 14a 
|o: LIOLL 1d08D9/|t1rF32GI | -Il 
! 1 { bed | і = —1 | Fg 
[i І Le—À be — —— гт 
и" si 
Le 1 


SWAP exchanges the subtrees associated with keys L(2] and LD1): 
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го] 2+1 SWAP R;T 

[13 Z«R 

t21 T*L STPATH"cZ 

[31 Z«((GD0T)27cZ) *T2^cZ 


DISPLAY 7 3 SWAP TREE 


l t 
r1 bg 
Lou SO 9—4 | cal | 
| I 15в6 110 Е! 7 1 m— lI! - -il 
| 1 d =) tee 1480911 F12GI 11 bg 
I I l I - 4—1 |i tt 
|] П | te——— 1 bg 
1 1 te — pg 
I Le 1] 


6.3 Binary Trees 


This section discusses another form of tree structure in which there are no keys 
but instead the structure depends on properties of the data, together with the 
order in which it is entered into the tree. A tree consists of three components, a 
root, a left subtree, and a right subtree. Data resides only at the roots of trees 
and subtrees, and as in the previous section it can always be made into a scalar 
however complex the actual structure of the data which resides there. The left 
and right subtrees may be empty, and it is natural to represent empty trees as 
10. Subtrees repeat the structure of trees so that a typical three-level tree is: 


P 


| 
| 


10 10 


A simple binary tree operation involves storing names which are ordered alpha- 
betically The first name is entered at the root, the next name goes to the left or 
right depending on whether it comes before or after the root word in the 
alphabet. Subsequent names enter at the root and traverse the tree going left or 
right at every subtree root until an empty subtree is found where the incoming 
name can be inserted. Thus if FRED, ANNE and DAVID are to be entered in 
that order the resulting tree is 
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FRED 


ANNE 


DAVID 
If they are entered in the reverse order the tree is 
DAVID 


= 


ANNE FRED 


Basic operations on binary trees are get-root (modelled by 22 TREE), get-left- 
subtree (+TREE), get-right-subtree (32 TREE), and is-empty (O=pTREE). At a sec- 
ondary function level, useful functions are those which carry out operations like 
insert, search, make-tree, count-leaves, count-comparisons and is-equivalent. 

Since binary trees are recursively defined, it is not surprising to find that 
recursive functions are a natural way of building up secondary functions. 

First consider binary trees which have simple numeric scalars as the root 
values. The function INS implements an algorithm for inserting an item into a 
tree which uses “multi-level recursion,” that is INS calls AINS which calls 
AAINS which calls INS. 

To insert an item L into a tree R first test to see whether R is empty, in which 
case the result is ¢10)L¢10): 


Го] 2+1 INS R м Lis item, R is tree 
[13 >L1 IF OzpR a return (1021010) if tree empty 
[2]  *0 ZeL AINS R ^ ее... 


[31 Li:2eR LR 


AINS deals with the non-empty case and tests first whether L matches the root, 
in which case there is nothing to do. 


[toi Z«L AINS R 


C13 +11 IF Lz225R a return tree unchanged if L matches root 
[2] +0 Z«L AAINS R п else ... 
[3] 11:2+8 


&AINS deals with the general case where L does not match the root in which 
case L is inserted on the left or right depending on whether it is less than or 
greater than the root: 


Со]  Z*L AAINS R 

[1] »11 IF L>22R ^ go right if І > root 
[2] +0 Ze(cL INS+R),1¥R a else go left 

[3] L1:Z«(24R),cL INS+OR 
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The INS function also allows a binary tree to be constructed from scratch by 
successive insertions using a right argument of 10s. As in the previous section it 
is worth spending a few moments observing the relationship between the tree 
diagrams given above and the DISPLAYed versions. 


TRi*6 INS 10 
DISPLAY TR1 


TR1«8 INS TR1 
DISPLAY TR! 


pr 
[IE рї 
1 101 6 | гө гч ІІ 
ы | dot 8 joi fI 
I ы: Ld gg 
l 0—1 1 
&—_——————— 


TR1+7.5 INS 9 INS TR1 
DISPLAY TR1 


! ! 
РТО 6 1 pee ea 
гыз Ii гч гет 181 re ry 111 
І 101901 7.5 101 1 1 lol 9 101111 
I Py bd ымы ы шыр 
[ І 0—1 te 1 | 
| L | 
L 


The above code suggests a further recursive function which converts a vector 
into a binary tree: 


toi Z«MAKET R 


[11 *L1 IF O-o,R ^ if empty argument return empty tree 
C2] +0 Z«(^R)INS МАКЕТ 1+R я else insert first into tree 
^ made from remainder 


[3] 11:2+10 


so that 
TRI*MAKET 7.5 9 8 6 


also constructs the tree shown in the last example. 
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6.3.1 Trees with non-simple Scalar Nodes 


One of the strengths of APL2 is that if the underlying structure is now changed 
to one of arbitrary complexity the upgraded code for the INS and ISIN func- 
tion sequences is virtually unaltered. To be specific, suppose that the node items 
are identified by keys which are taken to be the first item of nested vectors such 
as V61, V62, and V63 below. 


DISPLAY V61 


| 
| 


| 
1 |BLACK| +11 150! 1250 | 
L— 115 2001 | 

1 

l 


1 
1 
1 
! 129 50] 
t 
L 
DISPLAY V62 


l r~ ге 

| 2 IWHITE| 1010 | 
| Cu | 
L 


DISPLAY V63 


li al! Qa ái 


І 
l 
l 
l 
І 
bg BÓ ————————————————À4 


The only change necessary is to the function AAINS where firsts must be added 
to the conditional clause: 
[12 #11 IF (4L)2*25R 
A tree to store the three nested arrays P, Q and R is constructed by: 
TR2«MAKET V61 V62 V63 
The resulting tree TR2 has the shape 
V63 


v62 
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6.3.2 Searching Binary Trees 


A function sequence which tests whether or not an item is present in a tree has 
an almost identical recursive structure to that of the functions INS, AINS, and 
&AINS used for inserting items into a tree. 


[0]  Z«L ISIN R a Lis item, R is tree 

[13 +11 IF O-eR a return 10 for empty tree 
(2) +0 2+1 AISIN R ^ else... 

Сз] 11:2+0 

(0) 241 AISIN R 

[13 +11 IF Le22R a See if root matches 

t21 +0 2+1 ASISIN R a else ... 


[3] L1:2«1 


Со] 2+1 AAISIN R 

11 +11 IF (4L)»*22R e try right if L»root 
C2] +0 Z«L ISIN*R ^ else go left 

(3] L1:ZeL ISINtOR 


7.5 ISIN TR1 
1 

7 8 9 ISIN^cTR1 
0141 

(V61 V62 15)ISIN^cTR2 
116 


Of course, if the data items are simple numeric scalars, ISIN can be achieved 
much more simply by LeeR, e.g. 


7 8 9ecTR1 
0141 


Depth-first scan, that is a traverse of the tree which penetrates each path as 
deeply as possible into the tree before retreating and fanning out to other nodes, 
is also achieved trivially through enlist: 


€TR1 
67.589 


and the number of leaves in a tree by 


peTR1 
4 


6.3.3 Selective Enlist with Binary Trees 


Walking the tree TR2 in a depth-first fashion poses a problem, because enlist is 
once again too heavy-handed for the job, and steam rollers everything down to 
scalar level: 
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€TR2 
1 BLACK 11 150 15 200 29 50 1250 2 WHITE O 3 GRAY 6 150 9 25 
18 125 300 

péTR2 
32 


The selective enlist function ENLIST defined in Section 5.4 provides the 
ability to scan the items in TR2 in depth-first fashion while retaining the simple 
(i.e. non-nested) structures, namely character and numeric arrays: 


DISPLAY 841 ENLIST TR2 
p= — 


ГӨ] ра ra ry e—a 
101 1 IBLACK| +11 1501 1250 |O] 2 |WHITEI 
J 


i Г 

! I 

| bd LC —3 115 2001 L. — | 

1 129 501 l 

І —— 1 
Le 4 

DISPLAY 841 ENLIST TR2 

= — 
! re re Ca ee re 1 
1 IOI О IOI 3 IGRAY| 16 1501 + 9 25] 300 101 | 
poled bd LL 448 1251 ы! 
J L | 
k 


6.3.4 Data-equivalent Binary Trees 


Different binary trees are data-equivalent if they contain the same data but in a 
different tree structure. The differences arise only on account of the items being 
inserted in different orders. For example: 


DISPLAY MAKET 4 5 6 


J 


i | 
II г——— гөр 16 101 1 
ГЕТ гө рч tS lor ty 
11 t тога tor | ыз | І 
Hert bed bed | f I 
toy be———_4 П 1 
| б< m П 
Le. 4 
DISPLAY MAKET 6 4 5 
RUN ж! 
К олке оаа | So 
| | re үө | 5! гө mil 
il [01 а 101 1 | fol 6 jolt 1 
каш ы | 1 Wd bed fy 
| be —2Àà Le. Jy 
gs 


whose corresponding tree structures are 
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6 
| 
5 
| 
4 
and 
5 
4 6 


The (1025 representing empty left and right sub-trees are generated by line 
C3] of MAKET. 
Simple enlist is adequate to compare trees for data-equivalence, for example: 


(eMAKET 4 5 6) 2єМАКЕТ 6 4 5 


This test applies equally to trees with complex underlying structure: 
(eMAKET V61 V62 V63)zeMAKET V62 V63 V61 


6.3.5 Alternative Comparisons 


If the root items are not numeric scalars it is necessary to replace > in AAINS 
and aAISIN with a function GT which determines in context an appropriate 
definition of “is greater than.” For example, if the root items are character- 
string vectors an appropriate GT function which exploits dyadic grade-up is 


со] 2+1 GT R 


E133 +L1 IF O£*OpL a use collating sequence if L non-numeric 
[2] +0 Ze(4L)>4+R a else use > 
[3] L1:Z*>/DAV4aL R a test for L before R in alphabetic order 


Only some relatively small details of the aaINS and AAISIN functions need 
be changed. If the right argument of MAKET has only one name, this must be 
enclosed. 


(0) 2+1 aAIns R 

[1]  *L1 IF(*L)GT 25R 
[2]  *0 Ze«(cL InstR).14R 
[3] L1:Z«(2*R),cL Ins*óR 


[0]  Z«L Asisin R 
[1] *L1 IF(*L)GT 228 
[2] +0 2+1 IsintR 
Сз] L1:Z«L IsintoR 
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These functions together with Ins, Isin, aIns, AIsin, and Maket suitably 
adapted cover all the three types of data which have been considered. 


TR3«'FRED' Ins 10 
DISPLAY TR3 


—————À 
me r—3 r9 ! 
10] [FREDI 101 | 
Ld LC LJ | 


Г 
| 
І 
te———- 
DISPLAY TR3+Maket ‘DAVID’ 'ANN' ‘FRED 


br lu 
Г гет ге ore | IFRED 19! 1 
11 10] IANI | гет г+—— геч | | L——À ! 
| d bd 1—2 | Jol IDAVIDI 101 | | | 
Lt |j [29 e шз | [| 1 
Et te— | 1 
| be 1 
L 1 


*АММ' 'JANE' Isin”cTR3 
10 

€TR3 
ANNDAVIDFRED 


Exercises 6a 


1, Amend the Isin sequence of functions so that Isin counts the number of 
comparisons which are made in searching for L. 


2. Write a function sequence SUB, ASUB, AASUB, similar to the ISIN sequence, 
which obtains the subtree in R at node L. 
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6.4 Networks 


This section considers closed structures with arcs and nodes. Two nodes can be 
identified as source and sink respectively, and the other nodes are intermediate 
nodes. This structure typically models a situation where something like a fluid or 
an electric current flows from the source to the sink. Flow may only occur in 
one direction along each arc and the arcs also have capacity constraints, that is 
each has a maximum flow which it can sustain. A frequent objective is to maxi- 
mize the total overall flow from source to sink, so that for example the 
maximum amount of oil is conveyed through a system of pipes from the oil well 
to the refinery. 

The so-called PERT diagrams form another family of networks in which arcs 
represent activities, Numbers on the arcs represent the times to perform them, 
and the nodes are states achieved as the result of the completion of the activities 
represented by their incoming arcs. 

A specimen network is the following where the values marked on the arcs are 
the maximum flows along them: 


Such a network may be represented by an N by N matrix where N is the 
number of nodes, and the value in the cell (r,c) is the directed distance between 
node r and node c. No connection between the nodes r and c is represented by 
a 0 in the cell (тс). Thus the matrix representing the above network is 


NET 
09140 о 0 о 
оо 6711 0 0 
оо 02 019 0 
оо 0016 8 0 
оо оо 0 020 
00 0012 011 
оо оо о о о 
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Arcs are represented by non-zero entries, and it may be assumed without loss of 
generality that for networks with a single source and a single sink, the former is 
node 1, and the latter the node represented by the last row/column. Thus the 
first column and the last row of such a network matrix must consist of all zeros. 

Typically network matrices are sparse and an alternative space-saving repre- 
sentation of such matrices is a two-item nested vector, the first item of which is 
a binary matrix of node connectivities NETC, and the second item is a vector 
NETV of the values of the non-zero items in row-major order. The above 
network could then be represented by the nested vector 


NETC NETV 
0110000 9 14 6 7 11 2 19 16 8 20 12 11 
0011100 
0001010 
0000110 
0000001 
0000101 
0000000 


Conversion to the NET form is achieved by FULNET NETC NETV where FULNET 
is 
[0]  Z«FULNET R 


[11  Ze*R 
[21 (6C,2)/,Z) +228 


6.4.1 The Vector of Paths through a network 


Consider the problem of determining all paths from the source node to the sink 
node. Assume that L is a binary connectivity matrix such as NETC representing 
a network without loops, and that the items of R represent node numbers. These 
paths can be determined by the pair of linked recursive functions OUTFROM and 
ROOT: 


го] 2+1, OUTFROM R 


t11 *L! IF Ozp,R a branch if list of nodes empty 
[21 +0 Z«(L ROOT+R),L OUTFROM 14R process first node and recurse 
[3] L1:Z€R ^ stopping action 


Со] 2+1 ROOT R;T 

[1] +01 IF-v/T*L[R:; branch if all-zero row found 
C2) *0 Z*R,"L OUTFROM T/itoL ^ join current node to all lower 
C3] L1:Z«R ^ Stopping action 


Line [2] of OUTFROM says 


(L ROOT^R), a find all the paths which proceed downwards from 
the first item in R, and join them on to ... 
L OUTFROM 1+8 м... ditto for the rest of R 


ROOT then tests whether the all-zero row (i.e. the sink) has been found, and if 
not joins the current node R to each of the trees which spread out from the 
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nodes to which R is connected. OUTFROM thus corresponds to processing “along” 
a vector of nodes, ROOT to processing “down” from a single node. 


›Г10ЈМЕТС OUTFROM 1 
457 

a7 
7 
7 


WHWWOWONNNNNNNNN 
Ooorrtuicxsuouuutu 
"oovuioovoorr 


КА 


The £107 transforms the vector of paths to a one-column matrix which makes 
it easier to read. 

If a network has loops, it is necessary to carry into the recursion a list of 
nodes encountered so far. In the following version of OUTFROM and ROOT, L is а 
two-item vector where the first itern is the enclosure of the connectivity matrix, 
e.g. NETC, and the second item is the list of nodes encountered so far. 

[0]  Z«L OUTFROML R 

[1]  »L1 IF 0=p.R 

[2] +0 Ze((L, *R)ROOTLAR),L OUTFROML 1+R 
[3] 11:2+8 


[03 Z«L ROOTL R;T 

17 *L1 IF-v/TeRÜL11*L 

[21 +0 Z«R,"L OUTFROML(T/:*o*L)-14L 
[3] L1:Z«*R 


The without in the second line of ROOTL inhibits the processing of nodes which 
have already been visited. 

For networks without loops, such as NETC, the only difference between 
OUTFROM and OUTFROML is that the left argument of the latter must be 
enclosed, that is 


(cNETC)OUTFROML 1 


is equivalent to 
NETC OUTFROM 1 


An example of a network with loops is 
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for which the connectivity matrix NETL and the result of OUTFROML are the fol- 
lowing: 


о- о-о 
оооо- 
ооозо 


(cNETLIOUTFROML 1 
12345 1235 1245 


6.4.2 Parallel computation along paths 


The function PV (Path to Value) converts a path R into a vector of arc values 
lying on the path. The argument L is the matrix representation of a network. 


Co] Z«L PV R 
11 Z*(2,/R)0"cL 


NET PV 1 2 3 
96 


The expression +/NET PV 1 2 3 4 S 6 7 thus adds arc values along the 
first path in NETC OUTFROM 1. 

Another way of looking at this problem is to extend the functions OUTFROML 
and ROOTL to obtain ADDFROM and ADDROOT in which the addition of values 
along the arcs takes place as the arcs are encountered : 
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CO]  Z«L ADDFROM R 

t17 +11 IF O-p,R 

£2] +0 Z«(L ADDROOT4R),cL ADDFROM 1+R 
[3] L1':ZeR 


го] 2+1 ADDROOT R;T 

[11 +L1 IF^v/T«RDL11L*0 

C2] +0 2+(08, Т) 0") +(cL)ADDFROM"T+T/iteL 
[3] L1:Z«0 


€NET ADDFROM 1 
53 57 36 66 45 52 56 35 40 52 56 35 65 44 


Addition could be replaced by other scalar dyadic functions, e.g. the minimum 
function. An alternative to defining another pair of functions is to convert 
ADDFROM and ADDROOT to operators, thereby generalizing the function + in the 
middle of line (21 of ADDROOT. This amendment also requires adjustment to 
line [31 of ADDROOT to contain the identity item of the function P. 


Col Z*L(P FROM)R 

11 *L1 IF Ozo,R 

t23 +0 Z+(L(P FROOT) ^R) ,c(CP. FROM) 1+8 
[3] L1:Z+R 


01 Z«L(P FROOT)R;T 

C1J -Li IFev/T+RD(1]L40 

[2] +0 26008, °D cL) P(cL)¢(P FROM) “TeT/iteL 
Сз] L1:Z«P/10 


NET 
09140 0 0 0 
oo 6711 0 0 
0002 019 0 
000016 8 о 
оо оо о 020 
00 0012 011 
оо оо о о о 


€NET «FROM 1 
53 57 36 66 45 52 56 35 40 52 56 35 65 44 
€NET LFROM 1 
222667779222 12 11 


The minimum of the sums along all paths is the shortest path-length through 
the network, and the maximum of these sums is the longest path-length, which 
in the case of a PERT network is that of the critical path. There is an analogy 
here with inner products, in that one function is performed along all paths, and 
the reduction of a second function provides a quantity of interest. This leads to 
the definition of an operator NIP standing for “Network Inner Product.” 

[O]  Z«(P NIP QR 

[1] Z*P/eR(Q FROM)1 


Thus 
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LNIP+NET 


35 


213 


is the length of the shortest path of NET, and 
ГМІР+МЕТ 


66 


is the length of the longest/critical path of NET. Assuming that node 1 is the 
source, the network may be taken as the single argument of the operator ROUTE: 


[oj Z*(P ROUTE)R 
[11 Z*(CR2000UTFROM 1)[(Z=P/Z)/10Z*eR+FROM 1] 


LROUTE NET 


12567 13467 


is then the shortest path or paths of NET, and. 


[ROUTE NET 


123657 


is the longest/critical path or paths of NET. 


6.4.3 Assignment of Flows 


Suppose that the values on the arcs of a network matrix represent non-negative 
capacities and that as flow is sent down a path from source to sink the capaci- 
ties on the component arcs in the route are reduced by the amount of the flow. 
As before it is assumed that the source and sink nodes are the first and last 
nodes respectively. First MSUB (standing for "Matrix Subtract") is constructed 
which has a network matrix as its left argument and whose right argument is a 
two-item vector, the first item of which is the row and column indices of an arc 
and the second an amount to be subtracted from the capacity of that arc. For 
example NET and the matrix resulting from subtracting 2 from NET(1:21 are 


shown below. 


NET 
09 140 
00 67 
оо 02 
0000 
0000 
0000 
0000 


о 
11 
о 
16 
о 
12 
о 


ооооооо 
оооооо ч 


oooooorcz 


о о о 
11 о 0 
019 о 
16 8 0 
о о 20 
12 011 
ооо 


Using the technique of CHANGE in Section 1.4.2 leads to 


Co] 2+1 MSUB R 


C1] (20L)+((ZetR) JL) -23R 
t21 2+1 


The function PSUB standing for “Path Subtract” extends this to an entire path. 
R is the path catenated to the amount to be subtracted. 
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[O] ZL PSUB R 

[1] 911 IF 1=p4R 

C2] +0 Ze(L MSUB(c2t^R) ,22R0PSUB 1 Ov^7R 
[3] LisZeL 


so to subtract 2 from the path 1 2 3 4 5 7 use as right argument the 
path/amount vector (1 2 3 4 5 7)2: 


NET PSUB(1 2 3 4 5 702 


07140 00 0 
оо 4711 0 0 
0000019 0 
оо 0014 8 о 
оо оо о о 18 
оо 0012 011 
оо оо о о о 


The function FLUX has as its right argument a vector of paths, and progressively 
subtracts the maximum possible flow along each path in turn. The maximum 
flow along any path is the minimum capacity of the arcs in that path. 

[0] 2+ FLUX R 

(11 *L1 IF O-oR 

[2]  »0 Z«(L PSUB(c^R),L/L PV4FOFLUX 14R 

[3] L1:ZeL 


NET FLUX NETC OUTFROM 1 


осоо ооо 
000241100 
0000010 
00001180 
0000003 
0000005 
0000 000 


Finally the function ALLOC combines the roles of OUTFROM in detecting paths, 
and FLUX in sending flow along them and also attempts to maximize the total 
flow through the network. It is known that the objective of achieving a 
maximum network flow is best promoted by sending flow as far as possible 
along paths with small numbers of arcs. Therefore the vector of paths corre- 
sponding to a network should thus be ordered from least to greatest numbers of 
arcs, which is achieved by the function UPG. 
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го] Z*ALLOC R 
t11 2+8 FLUX UPG(R£0)OUTFROM 1 


го] Z«UPG К 
[11 Z«RLAep^RJ 


ALLOC NET 
0000000 
0067 200 
0000070 
00001480 
0000 008 
00001100 
0000000 


6.4.4 Minimum Spanning Tree 


An undirected network is one in which the arcs do not have directions associ- 
ated with them and thus its matrix representation must be symmetric. A 
minimum spanning tree of such a network is a tree structure which includes all 
the nodes and for which the sum of total arc values is a minimum. This might 
for example be of interest to an oil prospecting company anxious to minimize 
the total length of pipeline needed to connect a given set of oil wells. Such a 
structure may not look like a tree in nature or in the sense of the previous dia- 
grams, however all that is required to give the tree property to an assembly of 
arcs and nodes is that it be connected, and that the number of arcs is one less 
than the number of nodes. NET may again be used as an example, but since it 
now represents a graph with undirected nodes it must be made symmetric by 


SYMNET+NET+QNET 
SYMNET 
o 914 о о о 0 
9 0 6 711 0 0 
14 6 0 2019 0 
07 2016 8 0 


011 0 16 0 12 20 
0 019 8 12 011 
00002011 0 


To develop a minimum spanning tree algorithm, a tree is modelled as a vector of. 
two-item vectors representing arcs, each of which consists of a left and а right 
node. If the network is the left argument L of a function MST which returns the 
minimum spanning tree as a vector of arcs, then the number of items in the 
result of MST must be ~1+4pL by the definition of a tree. 

The principle of the algorithm is that at any intermediate stage of con- 
structing the tree, the nodes fall into two disjoint sets, U which includes the 
nodes used so far, and V those not used so far. The next arc to be added to the 
tree is the lowest-value arc (LVA) connecting these two sets, or the first such arc 
if there are several of equal value. The right node of the lowest-value arc is the 
new node to be added to the set U and removed from the set v. 
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Assume that a function LVA has been defined which produces the lowest- 
value arc for a network L and a node-list R corresponding to the set U. The 
revised tree after one step of the process is 


(cT#L LVA R), a the new arc (enclosed) joined to... 


L MST п... the algorithm applied to ... 
R a... the previous node list with ... 
(aT a... the right node of LVA appended. 


The process starts with any node and stops when (pR)=*plL, i.e all the nodes 
are included in the node list. The complete function is: 

[O]  Z«L MST RT 

[11 *L1 IF (РЕ) = Фрі, 

[2] +0 Ze(cT),L MST R.1«T«L LVA R 

[3] Li:Zeio 


The problem has been reduced to that of calculating the LVA which in turn con- 
sists of finding the row and column indices of the first occurrence of the 
minimum non-zero value (MNZ) in the set LCU; VJ. This is given by 


^ONES TzMNZ/,T«L[U;V] 
where ONES is the auxiliary function defined in Section 4.2.1, which returns a 


vector of co-ordinate pairs corresponding to the position of the 1s in a binary 
matrix: 


[01  Z«ONES R 
[1] Zec[1]1*CoR) T 14 C, R2 /1x/pR 


and MNZ returns LLR unless either is zero in which case it returns the other. 


го] 2+1 MNZ R 

[1] *L1 IF v/O-L,R a branch if either L or R is zero 
[2] +0 Z*LLR 

Сз] L1:Z+L+R 


These lead to the definition of LVA as 


сој 2+1 LVA RiT;UiV 
[1]  ZeLEU;VeCitoLO^UeeR] 
[21  Z«(^ONES Z-MNZ/,2)0"U V 


The minimum spanning tree of SYMNET is then 


SYMNET MST 1 
12 23 34 46 25 67 


The value of MST, i.e. the sum of the values of its constituent arcs, is 
[0]  Z«MSTV R 
11 Z++/(R MST 1)0"cR 


MSTV SYMNET 
47 
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6.4.5 Precedence and Reachability 


A further problem which might arise in modelling the sort of networks which 
have been the subject of the preceding Sections is finding how far it is possible 
to travel in a given number of steps. 


For a graph such as the above which may be cyclic and contain self-looping 
nodes, and whose connectivity matrix is L, the precedence matrix answers the 
question what nodes may be reached in exactly R steps, where R is a non- 
negative integer. The reachability matrix answers the question what nodes may 
be reached in R steps or less. The precedence matrix is an extension of the 
connectivity matrix. The two are equivalent when R = 1, апі R = о denotes 
the identity matrix. Calculation of the nodes which can be reached at the next 
step provides in line [2] of the function PREC an application of the v.a inner 
product. 


со] 2+1 PREC Е 
C1J *L1 IF R=0 
C2] *0 Z«(L PREC R-1)v.AL 
Сз] L1:Z«*IDteL 


со] ZeID R;T 
[123 2+Т*.=Т+\К 


For one node to be reachable from another їп R steps requires either R-step pre- 
cedence or that reachability has already been achieved in fewer steps, hence line 
[2] of REACH: 


toi Z«L REACH R 

C1] *L1 IF R=0 

C2) *0 Z«(L PREC R)vL REACH R-1 
[3] L1:ZeIDteL 


The matrix CM is the connectivity matrix of the above graph and is used to illus- 
trate the calculation of precedence and reachability matrices. 
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CM 
00001 
10000 
01000 
00011 
01000 

CM PREC 1 CM REACH 1 
00001 10001 
10000 11000 
01000 01100 
00011 00011 
01000 01001 

CM PREC 2 CM REACH 2 
01000 11001 
00001 11001 
10000 11100 
010411 01011 
10000 1.4901 

CM PREC 3 CM REACH 3 
10000 11001 
01000 11001 
00001 11101 
34549 7T 11011 
00001 11001 


Exercises 6b 


1. Write a function MAKENET to construct a connectivity matrix of dimensions 
given by the left argument for a vector of co-ordinate vectors, e.g. 


4 4 MAKENET (1 2)(2 2)(3 1)(3 4) 


Should return 


2. For the connectivity matrix NETL how would use APL2 to answer the 
questions: 


(a) To how many nodes are there routes from nodes 1,2,3 and 4? 
(Ы) How many nodes can be reached in exactly three steps from node 3? 


3. How would you display the minimum spanning tree of SYMNET in Section 
6.4.4 with the values of the arcs displayed beneath them thus: 


122334 46 25 67 
9 6 2 a 11 11 7 
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‘he table below gives the distances between each of a set of five towns: 


e 
7 
52 
о 
1 
8 


ouarw 


What is the minimum length of a road network which ensures that every town is 
reachable from every other? 
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Summary of Operations used in Chapter 6 


Trees 

Section 6.2 

PATH path to item in tree with keys 

Section 6.2.1 

ANCIN ancestors of item in tree with keys 
Section 6.2.2 

SUBT subtree determined by given key 
STPATH path to subtree 

Section 6.2.3 

CUTFROM removes subtree 

SWAP exchanges subtrees 

Section 6.3 

INS inserts in binary tree 

MAKET makes binary tree 

Section 5.3.2 

ISIN tests for item in binary tree 

Section 6.3.5 

GT generalized “greater than” 

Exercises 6a 

SUB finds subtree at given node in binary tree 
Networks 

Section 6.4 

FULNET network conversion from nested vector to simple matrix 
Section 6.4.1 

OUTFROM all paths from a vector of nodes 

ROOT all paths from a given node 

OUTFROML enhancement of OUTFROM to deal with loops 


ROOTL enhancement of ROOT to deal with loops 
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Section 6.4.2 
PV 
ADDFROM 
ADDROOT 
FROM 
FROOT 
NIP 
ROUTE 


Section 6.4.3 
MSUB 
PSUB 
FLUX 
ALLOC 
UPG 


Section 6.4.4 
MST 

ONES 

MNZ 

LVA 

MSTV 


Section 6.4.5 
PREC 
REACH 

ID 


Exercises 6b 
MAKENET 
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converts path to vector of values along arcs 

sums along all paths from a vector of nodes 

sums along paths from given node 

Operator extension of ADDFROM 

operator extension of ADDROOT 

“network inner product” applicable to e.g. PERT network 
path satisfying e.g. shortest or longest path criterion 


subtract value from single item in matrix 

subtract value from each arc in path 

subtracts values progressively from vector of paths 
allocates maximum flow through network 

sorts paths in order of increasing length 


minimum spanning tree 

co-ordinate pairs of 1s in binary matrix 
minimum non-zero value of a pair of scalars 
lowest value arc connecting two sets of nodes 
value of minimum spanning tree 


precedence matrix for a directed graph 
reachability matrix for a directed graph 
identity matrix 


constructs connectivity matrix from vector of co-ordinates 


Appendix A. Solutions to Exercises 


Solutions 1a 


l. The expressions are DISPLAYed below, in each case followed by the proto- 
type. 
a. 'ABC' 17.6 


treo 1 

| ТАВСІ 17.6 | 1—1 
to 1 
е) 

b. 2 3022 4 
ec 

42241 0 

12 2 4i 

Lt 

с. 23 4224 


21 o 


d. 2 4p'ABC' '* * ' *'6*(12)(1009 6 


224 


e. *А' 7.5 5 "'5' 
co 
IA 7.5 5 5[ 
Cpa ЖЫШ 
f. 0 305 
P 
фо оо о 
L3 
g О 3p'A* 
ptm 
Ф | 
К + ge 
h 0 Зр 5 'A' 
r 
$000| о 
per 
i 3 Ор 5 'A* 
re 
+01 о 
101 
101 
ы 
1 O За(5 ‘ADA 


Г 
{тешр Ethel 
110 410 Іо | | 
E bed LL LI 
Le LL ————————À4 


k. О 3pC'B'6)(5*A*) 
po à 
Ф г p—3 r-—31 
гетото 
pled be 2 | 
ge Se 


k О Ор('В"6) (5'А') 
ec um 
Ф t l Ol 
II ору Ue 
l boomed | 
1—1 


а. 


1. 
i ol 
„—! 
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m. О 2 Opt'B'6)(S'A') 


| ol 


2. Opc2en and cO 2en respectively, where n is any numeric scalar. 


3. [O] ZeDIS R 
[1] "SHAPE: *(pR)*DEPTH:'(=R) 
[21  Z«DISPLAY R 


4. The value parts of solutions are given in a condensed form of the DISPLAY 
format 


Shape depth 
a. (2 3 «t6 7) 2 2 
b. (C4 5)3)C* APL*2CGOS. 523) 3 3 


5. (a) is the item-wise product of two two-item vectors; (b) is a three-item vector 
in which Bx5 is sandwiched between two occurrences of A. 


6. (i)d andi (i) eand4 


7. It gives a DOMAIN ERROR because (pA)! is not simple and therefore is not a 
valid left argument to p. 


8. (i) All the same. 
(ii) (c) is in general different, (a) and (b) are the same. 
(iii) (a) and (c) are the same, (b) is different. 


9. a. The real part of the product of a complex number and its conjugate is the 
Square of the magnitude of the argument. 


b. го] Z*QUAD R;T 
[12 Ze-(GLE2J*T, -T*CGRL217x2) -x/4,RC1 31)*,5) £2xRE 11 


&9 11*.0QUAD 1 1 1 
70.5 70.86603 
70.5 0.86603 


U*QUAD 1 253 4371 


Use decode to check the solutions, e.g. 


U[1111 293 43741 
8.8818E 163-2. 2204E~16 
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Solutions 1b 


1. G) No 
(ii) (b),(c),(d) and (f) are the same, namely the three-item depth two vector 
(1 2)(10 20)(3 а). 
(а) is the simple vector 1 2 10 20 3 4, (e) is the three-item depth three 
vector 
(c1 2)(c10 20)(e3 4). 


2. (a) has five items, (b) has four. 


3. For conciseness answers are given in a condensed notation in which A is to be 
read as the array 2 3p16. 


а. (A)3 4. (10xA)30 
b. c-A073 е. (А 3) ((2xA)6) ((3xA)9) 
С. (А+1)5 f. (A*2)9 


4. 2 3pc3 Sp' APL2 IS GREAT* 


or 2 3pc>* APL2' * IS" ‘GREAT’ 


55 (2 х) +" (13) 
DISPLAY 2+2,сХ 


CZ Х)+*'*(13) 
DISPLAY 2+2 X 
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None of the four answers are the same. 


6. (a) and (c) are the same, namely 


ra 
IXI 
[E] 


(b) and (d) are the same, namely 


7. (a)is the simple vector 13. 

(b) is a simple two by three mixed matrix, with a first row of blanks and a 
Second row 13. 

(c) is a simple one-item vector consisting of the character 'Х'. 

(d) is an empty matrix of shape 2 0. (Z 'X* is a two-item vector and the 
shape component of its first item is 0, which is brought from the inner to the 
outer structure.) 


8. a. ,'ABC' 'DE' is a two-item vector of character strings, 
€'ABC' 'DE' is a five-item vector *ABCDE*. 


b. „(1 3e *ABC') 'DE' is a two-item vector, whose first item is a character 
matrix and whose second is a character string. 
€(1 3p'ABC')*DE' is identical to є'АВС' ‘DE’. 


9. a. Calendar for month - weeks horizontal: 


Loi Z«SD MONTH DY:HD 

(11 рҮ: number of days in month 

[2] «SDs integer indicating start day of month 

Сз]  HD«'SUN' 'MON' 'TUE' 'WED' 'THU' 'FRI' "SAT! 
Гај 2+7 7»HD,(SDp' '),(1D¥),20p" ' 


b. Calendar for month - weeks vertical: 


53 MONTH 31 
SUN 5 12 19 26 
MON 6 13 20 27 
TUE 7 1% 21 28 
WED 1 8 15 22 29 
THU 2 9 16 23 30 


FRI 3 10 17 24 31 
SAT 4 11 18 25 


c. Calendar for as a character array: 
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53 MONTH 31 
SUN MON TUE WED THU FRI SAT 
1 2 3 4 
5 6 7 8 9 10 11 
12 13 15 15 16 17 18 
19 20 21 22 23 24 25 
26 27 28 29 30 31 


d. Vector of start days for each month: 


со] Z«LEAP START DAY JAN:D 
t11 D+DAYS+12+0,LEAP 
(21 Ze 1947| *NJAN,D 


DAYS 

31 28 31 30 31 30 31 31 30 31 30 31 
© START DAY 2 

255136140250 


е. Calendar for year shaped by quarters: 
sD 
2551361940250 
YEAR+SD MONTH” DAYS 
pYEAR ^ use 2YEAR to display as column of months 
12 
QTERLY«4 3pYEAR 


Solutions 1c 


1. In both cases the problem can be approached either by partial enclosure, or 
by axis-qualified multiplication. For (a) define 


Alternative solutions are 

2»[2]Mxc[2JA and Mx[1 3]A 
For (b) observe 

secti 33A 
117117 1311 1111 
11117 131311 1717211 
3 


The alternative solutions are 
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э{1 3]Vxe[1 31A, Vx[27A and +\[2]A 


2. For economy of space only shape and depth are given in full. 


shape depth equivalent shape depth 
to: 

a. 10 2 р (за 2 
b. (34) 1 4 4 2 
c. (34) 1 2M13 1. 3 2 
d. 10 2 m. 3 2 
e. 4 2 n. 2 2 
f£ 3 2 o. 2 2 
B. 10 2 <M13 р. 10 2 
h. 10 2 <9М13 9. 10 2 
i (349) 1 M13 


Solutions 1d 


1. For economy of space solutions values are given in an abridged notation. 


value shape depth 
3 


a. E 2 

b. 23p16 (23) 1 

c. 1 10 о 

а. (E) 10 3 

e. RANK ERROR 

f. 23916 (23) 1 

в. RANK ERROR 

h. RANK ERROR 

i. 2 10 o 

in E 3 2 

k. (2 3p16) 10 2 

1. (2 3016)3 2 2 

m. RANK ERROR 

n. same as k 

о. same as k 

2.2333 Ъ. 1 сзззз зз 
е. 3 31 :Ж E À h3 3 


3. a. land 3 
b. 1 and 3 have shape 10; 2 has shape 1 1 


4. a.2and4 


b. In 1, 3, 5 and 7 the shape of the index does not equal the rank of M11. In 
the case of 6 (1 2) does not match the rank of the second axis of M11. 
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5.a. 20L12M 

5678 shape — 4 
b. 20021M 

2610 shape = 3 
[3 (c2 NICIM 

5678 

1234 shape = 24 
d. (c2 1)0(27M 

21 

65 

10 9 shape = 32 
6. a. 20C12A b. 3003]A c. 2 3001 323A 4.2 4 30A 


RA (1++\Ts' !')cTe'SPARE ME A DIME* 
SPARE ME A DIME 


b. (Om *)cTe, M,’ s 


c. є+\”(1+0ау)су 
8. Cardinal to Ordinal 


[0] Z«*«ORDINAL N;T;I 

C11 aN: simple positive integer 
[2] Z*8N 

[3] Te'st' 'nd' 'rd' 'th* 
Са] I«€'123'i714Z 

[5] #041" #47242) /0K 

[61 I«€4 

C7] OK: 

[8] Z+Z,I>T 


Solutions 1e 


1. (a) Yes, value is 3. (b) No, depth is 2. 
2. а. 19710060 'eV)/Ve' *,V,t t 


b. э(є[2]М)=<(+ФоМ)р' * 


(Note: If M is non-nested (b) is equivalent to (v/Mz* '0/M) 


3. The results of applying the three collating sequences are: 
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(M17CCS1A4M17: 1) (M17[CS24M17; J) (M17[CS34M17; ]) 
ACE ACE ace 
BAD ace bad 
BED BAD ACE 
Bed BED bed 
CAB Вер BAD 
DAD bad Bed 
ace bed BED 
bad CAB dad 
bed DAD CAB 
dad dad DAD 


4. a.() 2(eC2]M) [DAVAM] (ii) MCDCS4M3 1 


b. (i) 22 ІЕ(212) z1pZeCc[ 2]M) COAVAM) 
(ii) ML(1,V/7~2#¢MCI3 ])/I«DCSAM: ] 


5. A matrix of 15 of shape pc. 
6. а. ((1*R-L)o1) £Ro1 


b. (14-0100 14-00 C14R-L) 9 12 £Ro 1 


7. (2 2 2р1)єА13 
8.a. col 2+КЕРІ R 
[1J 2+8 


C2] (Ct ts6e2)/e2) etx" 


REPL 2 4p'ABC ' 
ABC* 
xABC 


b. In line 2 replace * "=z with 0=2 and *'x' with c*N/A* 


Repl 2 4912300 
123 N/A 
N/A12 3 


Solutions 2a 


l.a. DISPLAY pV23 


2.a. (24 28 26) d. 12678 
b. (9 11 13) e 1221 
с. 345678 


3. (87V) **DA*, or in general use DAF. 


4. An expression for the weighted moving average is: 


*/7 CO xCoW) ,7V 
5. I-f. 2-b. 3-4. 4-а. 5-р. 6-с. 
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Solutions 2b 
l. a. 2 Зри 
АВ DEF 
b. 2 3p"cW 
ABC DEFG ABC DEFG ABC 
Cy 2 3pc"W 
ABC DEFG ABC 


DEFG ABC DEFG 


d. (c2 3)07W 
ABC DEF 
ABC GDE 

e. (c2 3)p"cW 


ABC DEFG ABC 
DEFG ABC DEFG 


iH 2 3p""W 
AA BB CC DDD EEE FFF GGG 


2. а. (2 4 1 3201 3 2901 23) 231 с, 312 
3. (?739c100p6)176 


4. a. Suggested comments are: 


го] 2+1 PRT3D R;PLA;ROW:COL 
C1) Zec(2 31А 

[2] 24" > ct] t, 02072 

[31 PLA*L(1],"2>L 

Са] ROW+'\',L031,49L 

[51 COL*L[5],62L 

(61 Ze(cROW), “CeCOL),£11"Z 
[71 Z*PLA,(1.5)Z 

Сај 2+,010]2 


make data into a vector of planes 
prefix rows and columns with blanks 
construct plane titles 

construct row titles 

construct column titles 

attach row & col titles to each plane 
attach plane titles 

arrange as a single column 


2222225232 


b. The shape/depth table for Z at the various stages of execution is: 


= P p” 

C11 2 2 (з 4)(3 4) 
[2] 2 2 (4 5904 5) 
[61 3 2 (5 6)(5 6) 
[72 3 22 3c 6) 

305 6) 
cal 3 221 3 

(5 6) 

3 


(5 6) 
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с. The descriptor LC 11 is joined to each heading and so retains its identity as a 
single unit. It should therefore remain enclosed and so a cross-section (indexing) 
is required. The headings, however, are joined individually, hence pick is appro- 


priate. 


а. (i) The following changes should be made to TITLES: 


TITLES(2]+c'PLA1* 'PLA2* 
TITLES(4]*c'ROW1* 'ROW2' 'ROW3" 
TITLES(6]«c'COL1' 'COL2' 'COL3* 'COL4* 


(ii) No changes need be made to PRT3D. 


5. Pascal triangle 


CO]  Z«PASCAL N 

Гај  Ze1,1,7G7ND NN 

[21  ZeQ ND ^"Z a delete trailing zeros 
[31 2+эв”2 


[O] Z*CENTER А;Т 
[11 aA: simple character matrix with trailing blanks 
t2] Te*/AN* *'=ФА 
[3] 2+(-[.5хТ)ФА 


Solutions 2c 


1. One possible modification is as follows: 


[0] 2+1 Compress R:BV:I 
C1] (BV 1)+г 
(2]  Z«BV/LIJR 


2. Values are: 


a. 2-/10 5 2 12 6 
53-106 

b. 72-/105 2 12 6 
75 73 10 76 

c. 295/23 4 

33 444 

d. 72p/23 4 


222 3333 


3 a. Each of the items of v is replaced by the prototype of V which is (0 
the test case. 


b. ((2xp^V)p^cO ^ 1)COMPRESS"V 


› for 
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4. There are no others. This is discussed in more detail in Section 5. 


5. Scan 


6. a. [01  Z«DTB R 
[1] +0 IF(OzpRO)v* '#+ỌZ+R 
(21  Z«DTB -1+8 


b. One possibility is to use scan, e.g. 


[03 Z«Dtb R 
[12 Z*O(v\OR#' ')/0R 


с. Use DTB^VW or Dtb^VW. 
7. a. x/*/7"2,/15 
b. 3 1 4/'ABC' 


8. [01 Z«L FIND ВІТ 
[13 Te 1*0L 
C2) ZeCCT4RV1)40), €CCTo 1), "(-T)4"(+\RIGR+LER 


9. v/(Ce2 2)07€1 0 0 191 41 0 10010 1 1)6‹1 1 1 20) €"cMAT 
or more briefly 


v/((c2 2)р" (4 2)779 13 11 15)€^cMAT 


Solutions 3a 


l.a. —(*42PRICESxSTOCKS»0) t* /28TOCKS»0 
55.633 24.75 43.3 24 76.5 

b. (2*4/2PRICESxSTOCKS) ++#э5ТОСК5>0 
56.222 24.75 39.108 24.75 76.5 


2. Y^NETMU 
123 51243 3142 


which can be translated into component names by 


2(A"NETMU) Q"^ccCNOS 
X801 X802 X803 
X805 X801 X802 X804 X803 
X803 X801 X804 X802 


w 


. The Cash Register System 
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[0]  Z«I RECEIPT STOCK:T 

[1] vSTOCK: vector of vectors - each item consists of 

C2] ^ (inventory no.)(item name)(unit amount)(costs/unit) 
[3] aI: vector of inventory numbers in stock 

Са]  T*e*^STOCK 

C5]  Zes14"STOCKLTiI] 


2STOCK 
211 THREADIES 1000 1.98 
312 FLATONES 1 1.09 
654 LOTSAVOLTS 2 1.55 


211 654 RECEIPT STOCK 
THREADIES 1000 1.98 
LOTSAVOLTS 2 1.55 


Solutions 3b 


1. Multiplier is between 
^$CC,MTAB)LTI)IF .5>+\(,PTAB)[T+à, MTAB] 


45,993 
and 
+((,MPAB)CTIDIF .S<+\(,PTAB) CT*4, MTAB] 
48.173 
2. +/°10 12-.NPV REV REV1 REV2 


19005 12510 13697 
17947 11896 13002 


3. The expressions are evaluated for the particular value BANK given in the exer- 
cise. 


а. pBANK 
4 

b.(i) */"*/""BANK 
15 за 76 25 

Gi) M tis COFBAMK 
34 44 11 25 

(ii) | 6/7 */7"0LBANK 
19 10 17 0 

c. 4\ "97° "BANK 


20 15 15 за ^6 56 25 25 


d. */*/""BANK 
54 14 
e. +/єВАНК 


68 
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4. Last Trades a. Find last trade of each stock: 


col Z+LAST_TRADE X;T:SYM 

C1] T+ex 

C2) SYM*T(31] 

[3] 2*e¢(SYM1SYM)=1pSYM)/[1]T 


STP 
МММ 3:25 95 
T 3127 36.5 


GM 3131 43 
МММ 3133 42.75 
IBM 3145 102.25 
IBM 3:57 102.125 
GM 4102 43.125 
GM 4104 43,375 
IBM 4:04 102.25 
= 4:05 36.75 
IBM 4:12 102.5 


LAST_TRADE STP 
МММ 3:33 42,75 
GM 4:04 43.375 
T 4105 36.75 
IBM 4:12 102.5 


b. Last trade of a given stock. 


[O] 2+5 STK LAST TRADE X;T;SYM 
[1] aS: stock symbol character vector 
[2] Teex 

£31 БҮМ+ТЇ;1] 

C4] Ze CS¥MUSYM)=1SYM)/(13T 
[5171 Т+2{;1] 

61 Z«ZUCOI-^* *')1є52:] 


'GM' STK LAST TRADE STP 
GM 4104 43,375 


c. Enhanced solution if the stock is not traded: 


[0] 2+5 Stk last trade X;T;SYM 
[11 SYM«10L22T«eX 

[2]  Z«e(cSYMi SYM) 2 158YM) /C11T 
(33 Ie(Z[:1]e7' "ies 

C4)  *L1 IF I»^eZ 

C5] +0 ZeZCI:1 

[6] L!:Ze'Stock ',S,' not traded’ 


'GM' Stk last trade STP 
GM 4:04 43,375 

'AA' Stk last trade STP 
Stock AA not traded 


d. Return the last trade after a given time: 
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[0]  Z«TIME TIM LAST TRADE Х:Т:5УМ:ТІМ 
[11 TIME«s':,' CHANGE TIME 

[2]  TIM*«20L21]T«eX 

[3]  TIM*e"(c'1. CHANGE" TIM 

C4]  SYM+10C2JT+CTIME<TIM)/[1]T 

(5] Z*e( (SYM1SYM)=19SYM)/(1J]T 


'4100' TIM LAST TRADE STP 
GM 4:04 43.375 
T 4105 36,75 
IBM 4:12 102.5 


(See Section 1.4.2. for CHANGE.) 


Solutions and Notes 4a 


1. In (a) and (b) the right argument is a scalar, and scalar expansion takes 
place. (b) means apply reshape twice, once with left argument 2, and then with 
left argument 3. 


a. DISPLAY 2 3ecV 


| 
| 
E 


* 
1 
1 
ен face el dass. e] 
1 
t 


€: 


b. DISPLAY 2 3e^cV 


(res rem! 
і +561 | 
оа | 
0—4 


= 
ш 


(с) fails because the numbers of items on each side of the p" are not equal. 


vea 5 6 
2 30°V 
LENGTH ERROR 
2 3p"V 
AA 


In (d) the items of v are scalars and so enclosing each of them makes no differ- 
ence, that is the enclose and each cancel each other out and this phrase is 
exactly the same as 2 3pV. 
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d. DISPLAY 2 3pe"V 
ot 
+4 5 61 
I^ 5 6] 
1—1 


(e) and (f) both fail because the left argument of p must be simple, 


e. (c2 3)oV f. (c2 3)pcV 
DOMAIN ERROR DOMAIN ERROR 

(c2 3)oV (c2 3)peV 

^ ^ ^ ^ 


In (g) the derived function p" has a scalar left argument and a vector right 
argument, so the former is scalar-expanded and item by item execution of p 
results in a three-item vector. 


Е. DISPLAY(c2 3)e^V 


pe a p 
+4 4 4| 45 5 St +6 6 6] 


1 1 
1 1 
11944) I5 S 5| |6 6 61 4 
port bh LI 
[" 


In (h) reshape-each has 2 scalar arguments. By the each rule both are disclosed 
prior to function application and the result is enclosed to give finally a depth 
two result. 


h. DISPLAX(c2 32)5^7cV 


AB CDE AB CDE 
ABCDE 
LENGTH ERROR 


AC AD AE BC BD BE 


> 
a 
w 
o 
ре тэ 


3. v 

A9 B12 B9 b9 B10 

(i) 2(DAV42V0 0 "cv 
b9 A9 B12 B10 B9 

Gi) VLDCSA»V] 

A9 B9 b9 B10 B12 


4. €C(GAFCT A8DAF'A* 28126) , "DJAFC 1 4DAF'a*24126 
or DAF.CO,125)*. *DAF'Aa* 


5. v/eV1e^cV2 or v/eV1e"cev2 


APL2 IN DEPTH 


6. a. CipVITFEea/C AB eV) CCl eCpV) +3+У 


b. Z IF ‘Cte (ZeCioV IF'AB' eV) "cV 


7 a. Total words 


267 


WORDS+(1+GETTYSBURG#' ')cGETTYSBURG 
pWORDS 


b. Number of distinct words 


267 


UWORDS¢WORDS~"c" ,.::-" a remove punctuation 
pUWORDS 


map upper case to lower case 

FIRST++ “UWORDS 
ALPHA«*'abcdefghijklmnopqrstuvwxyz" 
ALPHA*ALPHA, ' ABCDEFGHIJKLMNOPQRSTUVWXYZ" 


S4UWORDS 


Fourscore and seven years ago 


(^"UNORDS)« ALPHAL26|ALPHAiFIRST] 
54UWORDS 


fourscore and seven years ago 


139 


^ determine number of distinct words 


DISTINCT+( (UWORDS1 UWORDS ) =1 pPUWORDS) /UWORDS 
eDISTINCT 


c. Concordance 


139 


139 2 


^ determine occurrences of each distinct word 


TOTALS**/DISTINCT*,zUWORDS 


eTOTALS 


DISTINCT CT«*DISTINCT,(1.12]TOTALS 
eDISTINCT CT 


SORTED CT*DISTINCT CT(f*TOTALS;] 
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104[12SORTED CT 
that 13 
the 11 
we 10 
to 8 
here 8 
a 7 
and 6 
nation 5 
of 5 
һауе 5 


8. It transforms it into a sentence. 


Solutions 4b 


І. сој Z«DTB R 
[11 26ф(У\ФКи"' *)/OR 


a. roi Z«DTBM R 
[13 Z*DTB"c(2]R 


b. [ol] Z«L INDEX R 
E11 Z*(CcDTB. R) z^DTBM L)/1i^pL 


or Ст] Z*(LA,.2(C 150L) *R)/1"ppL 
2a. эе"є[21М 


b. sa7c[[/1ppAlA*' , *, A 


Solutions 4c 


І. А+2 3916 
вез 
C+*APL* 
E*(CCcA),B,cC 


a. DISPLAY OeE 


b. DISPLAY +0pE 


1 
+0 0 01 
о оо! 
„—— 


с. DISPLAY *OecE 


The remaining answers are given in a condensed notation. 
depth 


value shape 
d. ' Li 3 
е. RANK ERROR 
f. 3 10 


shape 


shape — 


shape 


1 


о 


о, depth = 


2 з, depth 


3, depth = 


value 
8. з 
h. o 
i 10 


2. (a) and (c) reduce depth, the others do not. 
(c) is subject to INDEX ERROR, (a) is not. 
(b) requires that the rank of A is one or zero. 
(d) and (e) are fully equivalent. 


(3) (a) and (c) are the same, (b),(d) and (e) are the same. 


APL2IN DEPTH 


shape depth 


o 
o 
1 


(Hint - confirm by Te. Te ^A) (14A) (12A) (ALII) (10A)) 


(ii) all of them are scalar 1 except (b) which is vector 1. 


3. The answers are given in a pseudo-APL notation in order to highlight dis- 
tinctions between e.g. 10 and the character ‘blank’. 


а. () (о oot D (i) (0 0) 


b. One is two zeros, the other is three blanks. 


cQ €1 2) (3) ('ABC') 


(0 0 (00) 


Gi) (1200 90) (30000) ('ABC 


Gi) CABC 03) (1 
d. () 20 (i) D 


2 
(ш) 


оң 
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4. a. 2'THIS* 'IS' 100 
THIS 
Is 
100000 
b. 21713 


с. [2 132V47 


5. 71+ always returns a one item vector containing the first item; +o returns the 
last item itself. 


6a.1 b 123 с. та d.123 
7. pM ог рум in both cases. 


8. *7V48L4227V48] ог ^"V&48[A20"7V48] 
GETTY TRUMP 


9. first 


Solutions 4d 


la. DISPLAY x/2 3 0р0 


LE] 


DISPLAY x/2 0 30 


55% 


fes 


c. DISPLAY x/c2 0 3p0 
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2a. DISPLAY +(10)#0p<2 300 


b. DISPLAY ^8`00рс2 3р0 


€. DISPLAY *(c3 4)0"05c2 3p0 


гч 
соо о! 
10 оо о] 
10 0 0 0! 
| | 


Some implementations may give the same answers to parts (b) and (c) as to part 
(a). 


за, DISPLAY 0/2 3 0р0 
12—71 

гет | 

| fol |! 

LJ Ld bed | 

rp геч | 
| fol lol | 

Lad LJ L4 | 
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DISPLAY &/0pc2 300 


| 


DISPLAY ,/0рс2 3p0 


245 


APL2 IN DEPTH 


DISPLAY pt+,/Ope2 9p0 


b. DISPLAY p*,/0pc2 9 950 
DISPLAY p*,/0pc2 9 9р0 


c. DISPLAY р+,/0рс2 9 9 900 


ec 
12 9 9 0I 
| 


Eventually what happens is 


DISPLAY pt,/Opc2 9 9 9 9 9 9 950 

WS FULL 
DISPLAYp*,/00c2 9 9 9 9 9 9 9р0 
^ ^ 


Solutions 5a 


1. One way to write the operator CONSEC is 


Co] Z«L(P CONSEC)R 
C1] ZeZ/1ipZ*(CL-1)p1)€2 P/R 


M 
234345227 

2<CONSEC V afor strictly increasing sequences 
12458 

32CONSEC V afor non-decreasing sequences, etc. 


6 
2. a. It is convenient to write the operator BASE on the assumption that two 
functions TODEC and FROMDEC exist to convert to and from decimal notation. 


[oJ Z«L(P BASE Q)R 
[11 (L R)*Q TODEC^L R 
C2] Z«(CpZ)p10)1Z«Q FROMDEC L P R 


The functions TODEC and FROMDEC can then be written: 
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toj Z«L FROMDEC R 
Ct] ZeCOISTLeR) 612 TR 


[0]  Z«L TODEC R 
Ct] Ze((pZ)pL)12«10 FROMDEC R 


16+BASE 7 23 
42 

11114#BASE 2 11 
101 


b. Extend to process arrays by using each, e.g. 


[j*A*2 201111 110 10010 100001 
1111 110 
10010 100001 


A*BASE 2°11 
101 10 
110 1011 


3. ROOT is a dyadic function. ROOTOP achieves the identical result for scalar 
arguments by producing at an intermediate stage a monadic derived function 
which could be called the Pth root-function. Using ROOTOP can sometimes avoid 
the need for enclosure, for example: 


2 3 ROOTOP"15 
11 1.4142 1.2599 1.7321 1.5422 2 1.5874 2.2361 1.71 
2 3 ROOT^15 
LENGTH ERROR 
2 3 ROOT"15 
^ ^ 
(c2 3)ROOT 15 
11 1.4142 1.2599 1.7321 1.4422 2 1.5874 2.2361 1.71 


4. band c 


Solutions 5b 


1. a. PRODUCT : Apart from the function name the only change required is to 
replace + by x. 


b. JOIN : The changes required here are more subtle and require the use of < 
and + on account of the non-pervasiveness of catenate. 
CO] ZeJOIN R 
[1] +L1 IF 1=pR 
[2] +0 Zec(+tR),>JOIN 14R 
[31 LisZeectR 


2. Change line 4 of Path so that the function reads: 
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[oJ Z+L PAth R;T 

[12 *L1 IFA/(LeeR) ,1$zR 

[21  *0 2.10 

[31 L1:4L2 IF(10)=pR 

#1 Т+с1+(р®)т 7 1+(,Є”Є”Ң)\1 
[51 +0 Z«T,L PAth TƏR 

16] L212€(e10),L PAth^R 


3. A suitable function to change all occurrences is 


го] 2+1 CHALL К 

(11 *Li IFW(+L)eeR 

C2] *0 Z«L CHALL L CHANGE R 
Сз] L1:Z«R 


4. a. The following is a recursive definition of the POWER1 operator: 


[0]  Z«L(P POWER! QR 
[11 +11 IF Q-0 
r21 +0 Z«(L P POWER1(Q-1)R)P R 


[3] L!:Z«L 

3 *POWER1 3 2 
6561 

12xPOWER1 3 2 
96 


b. The following is a recursive definition of the POWER2 operator: 


[0]  Z«L(P POWER2 QR 
[1] +11 IF Q-0 

[21 +0 Z«L P L P POWERZ(Q-1)R 
[3] L1:Z+R 


c. The following sequence illustrates the convergence of the iterative solution 
of the equation y = cos(y): 


20POWER2 10 1 
0.7442373549 
20POWER2 25 1 
0.7390713653 
20POWER2 50 1 
0.7390851339 
20POWER2 100 1 
0.7390851332 


d. Use POWER2 as follows: 
CRYPT*CODE CODIFY POWER2 4 'DOG' 
The receiver decodes using 


CODE DECODE POWER2 4 CRYPT 
DOG 


where DECODE is given by 
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го) ZL DECODE R 
[13 Z*«ALF[LiRJ 


5. An operator POLISH and compatible functions MEAN and MEDIAN are: 
го] Ze(P POLISH)R 
[1]  Ze-CeP^c[ 17R) -L27R*R-[12€P^c£ 2]R 


СО] Z*MEAN R 
C1] ZeC+/RtpR 


СО] Z+MEDIAN R 
11 2+,5х+/В[Г.5х0 1«oR*RLARI11 


T 
066 
402 

MEAN POLISH T 
zx 2 1 
37271 

MEDIAN POLISH T 
"4 10 
4710 


Solutions and Notes 5c 


1. fH 
1 8 9 10 
2-13 12 133 
Lies 
1 B 9 10 
2 11 12 13 


2. а. ‚/м 
ABC DEF 
b. Tu 
ABC 
DEF 


с. ‚/А 
АВС DEF 
бнт JKL 
а. JR 
ABC 
DEF 


GHI 
JKL 


3.a. [03 2+1 SUBMAT R 
[13 Ze(L)o7LL 11, /L12LC22, /R 


b. Define 
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[01 Z«TEST R 
C1] Zea/(~2 2ü0R),Ct 2)(2 32€3 2)D^cR 


The given pattern can therefore be tested for by 
TEST^3 3 SUBMAT MS4 

010 
001 

c. Generalizing this test to cover amy pattern requires the definition of an 
APL2 object to represent a pattern. One possibility is to use a three item vector, 
the first item of which is the shape of the pattern, the second item is a vector of 
the co-ordinates of the os, and the third item a vector of the co-ordinates of the 
1s. The pattern above would then be represented by 


РАТ+(3 3)(<2 2)(C1 2)(2 3)(3 2)) 


Care has to be taken to ensure that the two vectors of coordinate vectors are of 
equal depth, hence the explicit enclose in the second item. A function which 
tests for the occurrences of a binary pattern L in a binary matrix R is 

го) Z«L PATIN R 


C1) R+(+L)SUBMAT R 
C2] лл (~LC2]SEL"R) (LC3JSEL"R) 


го] 2+1 SEL R 

C1] ZeLü"cR 

Hence the test above could be achieved by 

PAT PATIN MS4 

о о 

001 

4. a. (RINCGxpCV)p1 1 O)ACV 
b. ‹(#\(1.5хоСУ)р1 0 10ACV 
с. CAN! я zLINE) /LINE 


5. а. First observe that the shape vector гше requires that the outer structure be 
a two by two matrix. To determine the items, e.g. first row, second column, the 
each rule must be applied, і.е. the vector 2 2 and the matrix 4 1p 'ABCD* are 
both disclosed, р is applied, and the result enclosed as a scalar to take its place 
as item [1:27 of the result. Since none of the items so enclosed exceeds depth 
one, the overall depth of the outer product is two. The final result is therefore 


€(2 2)3)*.06(4 159 ' ABCD') 


66 AB 
66 CD 
666 ABC 


b. Start by displaying the two matrices A and B: 
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DISPLAY A B 


The APL2 rule says enclose along last and first axes, and take the outer 
product: 


DISPLAY^(c[2]A)(c[12B) 


| П 

111201 13 501 1 1142113111 
ү Ee! es p ax 
bem] qut 4 


The numbers appearing in the above display are clearly those which arise in 
"row-into-column" evaluation of the matrix product. The result is completed by 
taking the sums of the numbers within each inner box: 


DISPLAY */"(cC2]A)*.xc[1]B 


which is the same as 


DISPLAY A*.xB 
+ 8 5} 


120 131 
[EE] 
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6. а. 255.414 6 
36 8 
5 8 10 
b. 255,146 
21 24 26 
41 44 46 
c. 2 2«.p14 
112233 44 
12233 44 
d. 2 34.4 
11 22 33 44 
111222 333 444 
* 2 4 6+.,'АВ' 
2A 2B 
SA 4B 
6A 6B 
f. 2 4 6-.,'AB' 'CDE' 
2 AB 2 CDE 
4 AB 4 CDE 
6 AB 6 CDE 
7. a. 3 2 19.03 2 1 
32 
13 
21 
b. 3 2 19.093 2 1 
222 3 
11 222 
3 4.1 
c. 1235.04 5 6 
456 456 
4. 1 2 30..4 5 6 
6 
e 1235.23 4 
3 
f 1235-234 
1 
8. a. 1.875 in both cases. Result is weighted average with weights in 
descending powers of 2, viz. 42.1 1. 
b 2 2.53 in both cases - table of averages by pairs 
2.83 3.5 
с. 33.54 for AVG - 4 of 1 2 3,1 2 a, and 1 2 5. 


за 3,5 4,5 4 5 forMID-(e1 2) added to % of 
7/3 1 2,-/% 1 2,and -/S 1 2. 
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d. 7.5 for AVG - .5x+/15 
3.5 4.5 for MID- (c1 2) added to % of -/3 4 5 1 2 


€. 1.9375 in both cases. Result of intermediate outer product is 
1 2 з а 5 ѕо final result is AVG/15, that is 
weighted average with weights 8 42 1 1. 


f. for AVG.MID AVG/"(c1 2)*.MID c3 4 5 
++ AVG/7c3.5 4.5 
++ AVG/3.5 4.5 


7.5 for MID. AVG MID/.Sx+/1 23 & 5 


Solutions 5d 


l.a. A/“CONS*.€PROD b. v/^CONS*.cPROD 


To obtain the vector of vectors use 
(c[21M)COMPRESS^ci ^ 1*5M 


as described in Section 4.2.1. 


2. a. It returns the digit sums of the first 20 positive integers. 

b. The left argument of r must be simple - the inner product means that a 
second enclose is applied to 10 10 so that а non-simple object, viz. c10 10 is 
the left argument to each of the 20 separate rs. 


Solutions 5e 


1. го] Z+*L(P ONLYS QR 
[11 +01 IF t<=Q 
[2] +0 Z«L(P ONLY Q)R 
[3] Li:*L2 IF~A/0=pQ 
га] +0 2+1 
[S] 12:2«(1(Р ONLY(+Q))R)P ONLYS(14Q)R 


2. а. Col Z«*L(P Trace)R 
(13 f'U*C(CZe' ,LEX,* P R)''e'' ,LEX,* 'P'' R* 


b. CO]  Z«L(P Sinple)R 
[1] »L1 IF 2+2: 
[2]  »0 Zes,LEX,'(P Simple)"R' 
[3] L1i:ZeaLEX,' P R* 
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3. сој Z«L(P Comp! Q)R 
[11  Zes»,LEX,' PQR 


4. One solution is 


го] Z«(P SECANT)X;T 
[11 ZeCG-/COX) xT) $-/T«*P^X a interpolate new point 
[2] Z*(O(xP Z)=xP°T)/T+(+X),Z,14X а select interval containing root 


To solve f(x)=0 where f(x)=2-x(x-1), and using start values 1 and 7 proceed as 
follows: 


Foi ZeF X 
[12 Z«2-XxX-1 


*F SECANT RPTUNTIL NEAR 1 7 


Solutions 5f 


1. A possible function is 


го] Z*SHORTEN R 
£42 Z«C,7 14 *"R)* '(714R) 


2. Predicates may be defined as 


[oJ Z«ISW2 R 
[11 Z«'WILLIAM'z22R 


сол Z«SCOTCH R 
[12 2+*'МС + (pRIZR 


3. ЭМАМЕЅ IF«ISW2"NAMES 


4. «€"3SHORTEN UNLESS SCOTCH^NAMES,""* * 


5. Define a function NOTSCOTCH as the negation of SCOTCH (using ~SCOTCH 
won't do!) and use 


»€"LENGTHEN UNLESS NOTSCOTCH"NAMES,""' ' 


со) Z*LENGTHEN R 
12 2+071+8),='МАС',2+є71+8 


6, (-1+"МАМЕБ), [1017 1*4" NAMES 
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Solutions 6a 


1. Change ллІѕіп to 


CO]  Z«L aaIsin R 

(11 *L1 IF(4L)GT425R 
C2] +0 Z+1+L Isin^R 
[3] L1:iZe14L Isintor 


6 7 8 Isin"cTR1 
132 

'ANN' 'DAVID'Isin"cTR3 
23 


2. The following function sequence obtains subtrees as specified: 


Col ZeL SUB R 

C1) *L1 IF OsoR 
t21 *0 Z«L ASUB R 
[3] Li:Zeio 


[01 2+1 ASUB R 

[11 э11 IF Lz23R 
[31 +0 Z«L AASUB R 
[2] L1:Z+R 


[O]  Z«L AASUB R 
[1] »L1 IF(GL)GT^22R 
[2] +0 2+1 SUB+R 
[3] L1:Z«L SUB4QR 


8 SUB ТВ 
7.5 8 9 
"ANN'SUB ТЕЗ 
ANN DAVID 


Solutions 6b 


1. A function MAKENET which constructs a connectivity matrix from a vector of 
co-ordinate vectors is: 


co] 2+1 MAKENET R 
C1] Z*(LoO)AMAKENET R 


Сој Z«L AMAKENET R 

£53 *L1 IF О=рЕ 

[21 *0 Z*(L AAMAKENET4R)AMAKENET 14R 
[3] 11:2+1 


СОЈ  Z«L AAMAKENET R 
[13 Ze*LGR[DLDD «1 


256 


2. a. Use say (¢NETL) REACH" 13 - answer is all nodes. 
b. Use NETL PREC 3 - answer is node 2 only. 


3. T«SYMNET MST 1 
T,C.5]TÜ^cSYMNET 


4. Use MSTV - answer is 9 by building roads 15, 54, 43 and 42. 
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Appendix B. Some Key Rules and identities 


Scalars and Pervasive Functions 


For scalar S S ++ es 
For pervasive F (Р R) +» F"R 
Indexing 


Informally the shape of the result is the shape of the index and is independent 
of the shape of the data. 


For valid 1, 
for vector V IOV ++ VII] ++ (elev 
for array A and IDA (р,І) ++ poA 
— informally the shape of the index is the rank of the array. 


Operators 


Operators have long left scope and short right scope, whereas functions have 
long right scope and short left scope. 


Each 
For monadic F and ZeF^R 201] ++ cF3RLI] 
For dyadic F and 2+1. F^R ZCI} ++ ce(>LCIDFƏRLIJ 


For scalar F, scalar S, and arrays A B C D 

SF" AB ++ (S F A)(S Е B) 
"S ++ (АР 5)(В Е 5) 
"C D ++ (АР C)(B Е D) 
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Reduction 


Reduction reduces rank, not depth. 


For vector v (F/V) э» V[11 Е VIZ] Е... 
For vector v (F/"V) +» (CF/VE1DGE/VU2DD. ... 
For array A (F/"A) e» cF/2A 


Outer Product 


For Z+L»,P R 
for valid I,J Z[I:J] ++ c(OLDII)QoRUJJ 


Inner Product 


L P.Q R +> P/"cLonLJD)*.QcC17R 


Replicate 


For valid L,I,A 
for L/LIJA (8/7 1xL) +» I2pA 


n-wise Reduction 


For scalar S, vector v (S+pS F/V) +» 1«pV 


First 


(^A) +» (сТ)э(Т+(ррА)р1)+А 


Таке/Огор 
СрІФА) +» |I 


(о1+А) ++ O[CoA)-I 


Appendix C. List of illustrations 


Section Topic Functions/Operators 


LLL Complex numbers 
121 Separating and Grouping 
1.2.4 Writing Reports 
1.2.6 Grouping like items 
Stem and Leaf Plot 
1.3.4 Character to Numeric Conversion 
1.3.5 Deleting blanks 
Intersection of data items 
1.4.2 Passing Multiple Arguments 


Selective Assignment in Functions CHANGE 

15 Scalarization 
Descalarization 
Increasing Rank UPRANK MATRIFY 
Copying Structure 
Process numerics only in a mixed array 

1.5.1 Convert an array of any rank into matrix 

1.5.2 Alphabetic sorting of vectors and matrices SORTC 
Averaging tied rankings TUP TDOWN 
Schoolmaster’s Rank SCH 

1.6.2 Test for all items in a vector the same 

1.6.3 Find all occurrences of one string within another 


Delete Multiple Blanks 
Pattern Matching 
2.1.1 Multi-path selection (scatter picking) 
Frequency Distributions 
Mid-points in Euclidean geometry MIDPT 
24.3 Each with index of 
Each with grade 
2.2.1 The conjunction IF IF 
Multiple copies of matrix rows 
Avoiding Blanks in List Lengths 


2.2.2 Reversing scans 
Partitioning a Record into Fields 
4.2 Word Search 


Spell Check 
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43 
4.3.3 
5.1.2 


52 


5.5.1 
5.5.3 


5.5.72 
5.6.1.1 
5.6.1.2 
5.6.1.4 


5.6.2 
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Enlarging a List of Words 
Vector Merge 


Random Sentence Building SENTENCE 
Catenation of Matrices VCAT 

Partial Enclosure 

Find co-ordinates of Is in binary matrix COMPRESS ONES 
Binary matrix as partitions of column indices 

Distinguishing character, numeric, etc. TYPE 

Converting vector of names to a matrix form 

Moving functions along an axis ALONG 

Table Building TABLE 
Implications of Binding RED LRED 
Hexadecimal Arithmetic DTH HTD HEX HEXE 
An Operator for Padding Matrix Catenations NEXT 

Selective Enlist ENLIST 
Reduction applied to matrix multiplication DF 

Co-ordinates of Spirals SPIRAL 


Scans with Binary Arguments 

Delete leading blanks from a character vector 
Display comments only on an APL line 

Remove first occurrence only 

Spacing character vectors 

Selecting alternate items 

Adding columns of zeros to table 

Parity checking 

Gray codes 

Finding vowels in words 

Gradient of mid-points GRAD MIDPT 
Sampling extreme values from uniform distribution 
Sequences of Inner Products 

Inner Products with Nesting 

Displacement Vectors 

Outer and Inner Products with Explicit Each 
Sequences of Inner Products with Nesting 

Decode and encode for arrays 

Selective function application 


Selective Processing SOMECHAR SMALL 

Repetitive Prompts ASK NULL 

Iterative solution of non-linear equations COS NEAR NEWTON 

Non-linear function fitting FIT ALLNEAR 

Data Filtering NUM INTEGRAL 
FILTER 


The ELSE Operator ELSE 


Index 


A 
Alternator 145 
Ambi-valency 
Ancestors 198 
Atomic vector 
Axis qualifier 


132 


45 
15, 16, 17, 19, 27, 67, 68, 110, 113, 228 


B 

Binary Trees 200 

Binding 122, 125, 160, 173, 175 
Blanks 71, 73, 102 

Bracket indexing 24 


c 

Calendar 14, 227 

Capacity 208 

Саве statement 104 

Catenate 5, 125, 136, 156, 247 
Catenation of matrices 98, 128 
Collating sequence 46, 50, 206, 230 
Comments vi, 64, 144, 158 
Commute operator 122 

Complex conjugate 225 

Complex numbers 4 

Compression 68, 101, 181 
Concordance 97, 240 

Connectivity matrix 209, 210, 218, 255 
Control structures 172 

Copying structure 39 

Critical path 212 

Crossssections of arrays 24, 89, 103, 109, 139, 234 


Cryptography 138 
D 
Data filtering 181 


Data-equivalent trees 205 
De Moivres theorem 4 
Decode 169 

Decorators 40 
Deleting blanks 
Depreciation 82 
Depth 1, 47, 89, 93 

Derived functions 36, 53, 54, 57, 60, 67, 68, 70, 71, 84, 
93, 121, 122, 124, 132, 135, 139, 149, 160, 165, 177, 247 


73, 102 


Descalarization 38, 98 

Dictionary 94 

Disclose 11, 12, 15, 16, 27, 90, 95, 98, 103, 108, 109, 111 
Discounted cash flow 82 

Displacement vectors 162 


Distance table 219 


Drop 103,258 
Duality 145,147 
E 


Each 25, 36, 54, 55, 57, 60, 61, 62, 70, 75, 84, 85, 92, 9% 
115, 135, 141, 149, 150, 160, 164, 173, 177, 184, 238 
Each rule 91, 139, 140, 151, 154, 239 

Empty arrays 114 

Enclose 11, 15, 16, 17, 19, 91, 93, 95, 111, 127, 160, 184 
238 

Encode 169 

Enlist 5,9, 39 
Execute 174, 176 
Existential quantifier 
Expand 71, 108, 149 
Extreme values 155 


153 


F 


ЕШ functions 114 


ЕШ item 24, 69, 107 
Find 48, 73 
First 


21, 23, 37, 103, 111, 258 
g non-linear functions 179 
ig scalar rule 13, 24, 38 
Floating systems 12 
Format 39,40 
Frequency distribution 56, 82 
Function composition 131, 182 
Function phase 2,139 
Funetions 

AD 15 

ADDFROM 212 

ADDROOT 212 

ALLNEAR 180 

ALLOC 214 

ANCIN 198 

ASK 177 


262 


Functions (continued) 
CASE 184 
CENTER 64 
CHALL 248 
CHANGE 36 
COMPRESS 70,72 
Cos 17% 
CUSPRO 83 
CUTFROM 199 
DIS 7 
DISPLAY 1 
DTB 73.102 
DTH 12 
ENLIST 136 
FIND 73 
FLUX 214 
FRACTNL 174 
FROM 212 
FROMDEC 246 
FROOT 212 
FULNET 209 
GRAD 155 
GT 206 
HTD 127 
ID 217 
IF 69 
INDEX 102 
INS 201 
ISIN. 203 
ISW2 254 
JOIN 137 
LAST TRADE 86,237 
LENGTHEN 189,254 
LVA 216 
MAKENET 218 
MAKET 202 
MATRIFY 38 
MIDPT 56,155 
MNZ 216 
MONTH 14 
MSUB 213 
NPV 84 
ONES $9,216 
ORDINAL 31 
OUTFROM 209 
OUTFROML 210 
PASCAL 64 
PATH 134 
PCENTFOR 82 
PENCL 98 
PREC 217 
PRODUCT 137 
PROTO 3 
PRDD 6 
PSUB 213 
QUAD 8 
REACH 217 
RECEIPT 81,236 
REPL 51 
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Functions (continued) 
REPORT 80 
ROOT 209 
ROOTL 210 
ROUTE 213 
SCH 47 
SCOTCH 254 
SEL 67 
SENTENCE 95 
SHORTEN 254 
SORTC 45 
SPIRAL 142 
START DAY 228 
STK LAST TRADE 86,237 
STPATH 199 
SUB 207,255 
SUBT 199 
SUM 133 
SWAP 199 
TDOWN 46 
TIM LAST TRADE 87,238 
TODEC 246 
TUP 46 
TYPE 108 
UPG 215 
UPRANK 38 
VCAT 98 


G 

Grade-down 43 

Grade-up 43, 47, 50, 60, 93, 131, 206 
Gradient 155 

Graphs 215,217 

Gray codes 148 

Grounded systems 12 

Grouping items 5 


H 

Heterogeneity 1 
Hexadecimal arithmetic 127 
Hierarchical trees 195 


Idempotency 145 

Identity Functions 116 

Identity items 116, 212 

Incidence matriz 171 

Index 21, 66, 103 

Index of 29,60 

Index with axis 67 

Indexing 24, 257 

Талес product 152, 160, 164, 165, 168, 217, 253, 258 
Inverse functions 116 

Iterative solution of equations 138, 178 


Index 263 


K Operators (continued) 
Keys 196 POWERI 137 
, POWER2 138 
RED 126 
L ROOTOP 129 
Labels vi RPTUNTIL 176 
Laminate 10 SEE 122 
Level-breaker 23, 134, 197 SIMPLE 135 
Longest path 212 TABLE 124 
TRACE 132 
UNDO 147 
M UNLESS 172 
Match. 47 UNSCAN 147 
Matrix multiplication 153 UPTO 174 
Maximum flow 208, 214 Ordinal numbers 31 
Membership 48 Outer product 151, 152, 160, 164, 258 
Merging vectors 95 
Mid-points 56, 155 P 


Minimum Spanning Tree 215 
Moving average 58 
Multiplication table 124 


Parity checking 146 
Partial derivatives 179 

Partial disclose 15 

Partial enclose 15,17, 99, 150, 228 


N Partition 19, 21, 30, 47, $6, 72 

Nested array 1 Pascal triangle 64, 234 

Net present vahie’ BÀ Paths 22, 103, 106, 137, 197, 210, 213 
Network flow 213 Pattern matching 49, 73, 187, 250 
Networks 208 PERT diagrams 208 

Newton-Raphson iteration 178, 183 Pecvasiveness 54, $7, 114, 135, 164, 257 
Non-linear equations 178 Pick 21, 24, 25, 27, 91, 93, 103, 109 


Number bases 129 Picture format 40 
Polishing a matrix 138 
Power operator 137 


о Precedence 217 
Operational Research 195 Predicates 189, 254 
Operations 53 Prompts 177 
Operators prototype 3, 107, 109, 112, 114, 223 
ALONG 123 Proxy data 108 
BASE 129 
COM 122 
COMPI 132 Q 
COMP2 132 Quadratic equations 8 
CONSEC 129 Quantifiers 153 
DERIV 178 
DOUNTIL 175 R 
DYALEV 184 
ELSE 182 Random sentences 95 
FILTER 181 Ranking 46 
FIT 179 Ravel 5,9 
HEX 127 Reachability 217 
LEVEL 184 Recursion 47, 73, 133, 182, 201, 202, 209 
LRED 126 Reduction 71,140,258 
MONLEV 184 Regressive operation 135 
NEWTON 178 Replacement 34 
NEXT 128 Replicate 68,108 
ONLY 172 Report writing 11,80 
PATH 134 Reshape 5 
PDERIV 179 Restructuring 37.111 


POLISH 138 
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Reversing scans 71, 73, 147 


S 

Scalar extension 56, 109 
Scalar functions 48, 54, 56, 57, 92, 93, 141, 152, 155 
Scalarization 37,60 

Scan 71, 142, 158, 168 

Scatter indexing 24, 25, 27, 66 
Schoolmaster’s rank 47 

Scope 125, 160, 257 

Secant method 183, 254 
Selection 21, 111 

Selective assignment 34, 39 
Selective enlist 136, 196, 204 
Sequences of inner products 160 
Shape 9, 60, 156 

Shortest path 212 

Simple objects 2, 12, 239 
Sorting 43 

Sparse matrices 209 

Spell check 94 

Spirals 142 

Squad indexing 24 
Stem and leaf plot 21 

Strand notation 6 

Stretch factor 142 

Suucture 1, 37, 39, 107, 108, 121, 196 
Structure phase 2, 115 
Subtrees 200, 207 

Sweeper 145 


T 

Take 23, 103, 258 

Tied ranks 46 

Titing 63 

‘Tracing function execution 122, 132 
Tree operations 201 

Trees 195, 196 

Type 39, 107 


у 

Undirected networks 215 
Universal quantifier 153 
User-defined operators 121 


M 


Vector assignment 34 
Vector notation 5,23 


w 

Weighted moving average 58, 232 
Without 21, 32, $0, 210 

Word search 94 


ter 2 considers operators and din Саргы Э, адве how eas 
arrays handle data structures. Subsequent chapters provide more in-depth 
discussion and use of the language. Emphasis is placed on covering those 
APL2 language features which extend user versatility in describing data 
structures and communicating algorithms in ways which mirror current 
array-oriented thinking in computing science and software engineering. 


Throughout, the authors have included numerous hands-on exercises to 
give readers plenty of practice with APL2 programming. Thus, APL pro- 
grammers will find this an ideal text to upgrade their skills to APL2 and 
students will enjoy this straightforward presentation of this powerful and 
easy-to-use language. 
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